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ABSTRACT 


Algorithms  define}  as  recursive  functions,  such  as 
in  "pure"  LISP,  are  shown  to  have  structure  sufficient 
to  distinguish  between  processes  which  must  be 
executed  in  sequence  and  processes  which  may  be 
executed  in  parallel. 

An  interpreter  program  is  presented  for  executing 
LISP  programs  and  simultaneously  computing  the  number 
of  processors  needed  at  each  step  of  program  execution 
in  order  to  achieve  optimum  parallel  processing. 
Sample  program  runs  are  presented  to  show  speed-up 
ratios  between  strictly  sequential  and  optimally 
parallel  executions. 

A  possible  hardware  organization  for  a  parallel 
processing  system  derived  from  the  interpreter  program 
is  presented. 
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I.   INTRODUCTION 


Both  the  growing  volume  of  business  data  processing  and 
the  increasing  complexity  of  problems  emerging  from 
scientific  and  military  research  are  demanding  greater 
efficiency1  from  computer  systems.  The  efficiency 
attainable  from  the  latest  versions  of  traditional, 
sequential  machines  appears  to  be  approaching  limits  set  by 
the  final  speed  of  electromagnetic  wave  propagation,  while 
more  costly,  non -traditional,  parallel  machines  have  been 
encumbered  by  software  complexities. 

Because  much  of  the  processing  done  by  sequential 
machines  consists  of  independent  sub-processes,  it  has  long 
been  recognized  that  efficiency  could  be  improved  if  these 
independent  sub-processes  could  be  performed  simultaneously. 
Considerable  progress  has  been  made  in  this  area  by  building 
more  sophisticated  systems  from  basic  Von  Neumann  machines. 
Multiprocessor  systems  enable  multiple  processors  to  share  a 
common  core  memory  while  simultaneoulsy  processing 
independent  programs.  A  distributed  system  represents  a 
network  of  computers,  each  with  its  own  memory,  working 
together  on  independent  (or  nearly  independent)  programs  in 
order  to  solve  a  common  problem. 

But  individual  programs  themselves  may  contain 
independent  segments  which  could  be  executed  in  parallel. 
Machines  which  have  been  designed  to  perform  parallel 
executions   of   single   programs    represent   significant 


1  As    used   herein,   efficiency 
throughput  or  execution  speed. 


means 


measure 


departures  in  organization  from  conventional  machines. 
Thurber  and  Wald  [Ref.  1]  provide  a  survey  of  parallel 
processors  and  their  organizations. 

There  is  a  reason  for  the  unconventional  architectures 
of  parallel  processors.  Single  programs  may  be  thought  of 
as  mathematical  functions  which  map  a  single  input  data  set 
to  a  single  output  data  set.  This  means  that  the  results  of 
parallel  computations  must  eventually  be  brought  together  to 
produce  the  final  output.  Hence,  the  actions  of  the 
components  of  a  parallel  processor  must  be  more  tightly 
coordinated   than  in  a  multiprocessor  or  distributed  system. 

There  are  several  reasons  why  parallel  machines  have  not 
achieved  widespread  use.  Certainly  one  reason  is  that  many 
users  remain  satisfied  with  sequential  machines  as  long  as 
they  continue  to  meet  their  efficiency  requirements. 
Another  reason  is  that  the  parallel  machines  developed  so 
far  require  an  additional  degree  of  software  complexity  in 
order  to  distinguish  between  parallel  and  sequential  tasks. 
Hardware  cost  is  anotner  reason.  In  the  past,  the  cost  of 
logic  elements  was  much  greater  than  the  cost  of  memory 
elements.  Memories  were  designed  to  be  accessed  through  a 
single  port.  These  factors  were  in  line  with  the  Von 
Neumann  principles  of  sequential,  centralized  control  of 
computations  and  linearly  organized  memory. 

But  now,  advances  in  technology  are  making  it  possible 
to  define  a  new  set  of  principles  for  computer  design. 
Glushkov,  et.  al.,  [Ref.  2]  present  a  set  of  five 
principles,  quite  different  from  the  Von  Neumann  principles, 
for  the  design  of  what  they  call  recursive  machines.  The 
advances  already  made  by  LSI  technology  make  the 
possibilities  seem  endless.  Manufacturers  are  currently 
producing  single-chip  computers  (memory  and  CPU  on  one 
chip) .    It   is   not   inconceivable   to   imagine  an  array  of 


bipolar  processors  on  a  single  chip.  Memory  technologies 
are  improving  too,  making  it  possible  to  access  data  faster 
and  in  parallel. 


A.   DEVELOPING  A  PARALLEL  SYSTEM 


In  the  past  the  development  of  parallel  processor 
systems  has  been  characterized  by  the  development  of  the 
hardware  organization  first,  followed  by  efforts  to 
implement  compatible  software.  As  an  example,  the  ILLIAC  IV 
computer  [Ref.  3]  was  designed  to  capitalize  on  the 
parallelism  inherent  in  problems  where  the  data  is  naturally 
structured  in  array  form.  The  processing  elements,  each 
with  2K  of  memory,  are  organized  into  four  8x8  arrays. 
Kuck  [Ref.  4]  discusses  the  programming  language 
Tranquility  which  was  designed  for  the  ILLIAC  IV. 
Tranquility  is  an  algol-like  language  which  provides  the 
programmer  with  sequential  and  simultaneous  control 
statements. 

Ramamoorthy  and  Sonzales  [Ref.  5]  suggest  two 
approaches  to  the  problem  of  recognizing  program  tasks  which 
can  be  executed  in  parallel.  The  first  approach  is  to 
provide  the  programmer  with  tools,  like  Tranquility,  which 
enable  him  to  explicitly  indicate  tasks  which  can  be 
processed  in  parallel.  The  second  approach  involves 
preprocessing  the  source  program  to  analyze  the 
relationships  between  tasks  and  thus  determine  what  parallel 
processing  is  possible.  Lamport  [Ref.  6]  presents  two 
methods  for  enabling  parallel  execution  of  Fortran  DO  loops. 
Keller  [Ref.  7]  discusses  methods  whereby  processors  can 
"look-ahead"  to  a  limited  number  of  sequentially  organized 
instructions  to  find  instructions  that  can  be  executed 
"out-of-order"    without    affecting    the    final   outcome. 
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Research  into  methods  of  recognizing  independent  program 
segments,  and  hence  parallelism,  within  sequential 
algorithms,  seems  worthwhile  since  it  may  permit  established 
program  libraries  to  be  efficiently  utilized  on  future 
parallel  processors.  Stone  [Ref.  8]  however,  points  out 
that  efficient  algorithms  designed  for  parallel  execution 
may  prove  to  be  quite  different  from  their  serial 
counterparts. 

Based  on  the  work  done  in  developing  parallel  processing 
systems  so  far,  and  on  the  recent  and  predicted  advances  in 
LSI  technology,  a  reasonable  way  to  implement  a  general 
purpose  parallel  processing  system  is  to  first  develop  a 
software  system  for  describing  the  parallel  execution  of 
computer  algorithms  and  then  to  organize  the  hardware  so  as 
to  pnysically  implement  the  software  system.  This  thesis 
considers  such  a  software  system  and  suggests  an  approach  to 
the  hardware  organization. 


B.   SOFTWARE  FOR  A  PARALLEL  SYSTEM 


The  software  system  considered  is  a  subset  of  an 
existing  language,  LISP,  whose  syntax  allows  easy 
recognition  of  parallel  tasks  within  a  program.  In  "pure" 
LISP,  programs  are  defined  as  recursive  functions  of 
conditional  expressions  which  act  on  ordered  sets  of  input 
data.  when  evaluating  algorithms  which  are  described 
functionally,  as  in  "pure"  LISP,2  the  procedure  is  to 
first  evaluate  the  arguments  and  then  to  apply  the  function. 
It  is  this  simple  procedure  which  differentiates  between 
what  can  be  done  in   parallel   and   what   must   be   done   in 


2  Henceforth,  the  term  LISP  will  be  used  to  mean  "pure" 
LISP. 
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sequence.  That  is  to  say,  the  arguments  to  a  function 
represent  processes  which  can  be  executed  in  parallel,  while 
the  composition  of  functions  represent  processes  which  must 
be  executed  sequentially. 

In  order  to  "reveal"  the  parallelism  inherent  in  a  LISP 
program  and  to  show  that  it  is  recognizable  at 
execution-time,  the  LESP  function  evalquote2  has  been 
developed.  Section  III  describes  evalquote2  in  detail. 
Evalquote2  is  similar  to  the  universal  function  evalguote. 
Evalquote  is  called  a  universal  function  .  (or  interpreter) 
because  it  can  compute  the  result  of  any  LISP  function 
applied  to  its  arguments  if  the  result  is  defined. 
Evalquote2  also  computes  the  result  of  any  LISP  function 
applied  to  its  arguments,  and  additionally,  it  monitors  the 
data  flow  graph  which  describes  graphically  the  sequential 
and  parallel  relationships  between  executing  LISP 
primitives.  The  output  from  evalquote2  includes  a  list  of 
integers  representing  the  number  of  separate  processors 
required  to  optimize  parallel  processing  at  each  stage  of 
execution. 

In  order  to  postulate  the  effect  of  running  non-trivial, 
LISP  programs  in  a  hypothetical  parallel  processing 
environment,  evalquote2  is  implemented  by  a 
LISP-metalanguage  translator  and  interpreter  written  in 
Algol-W.  This  Algol-W  program  will  henceforth  be  referred 
to  as  the  interpreter.  Section  IV  explains  the  interpreter 
and  the  results  it  has  obtained  from  processing  several 
sample  LISP  programs. 


C.   MEASURING  PARALLELISM 


When   proposing   a   parallel   processing   system   it   is 
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necessary  to  provide  some  measure  of  the  expected 
improvement  in  efficiency.  Stone  [8]  uses  the  speed-up 
ratio  which  is  defined  for  a  given  algorithm  as  the  ratio  of 
the  execution  time  for  the  best  serial  version  of  the 
algorithm  to  the  execution  time  for  the  best  parallel 
version  of  the  algorithm.  The  interpreter  provides  a 
similar  measure  of  efficiency  improvement  for  the  sample 
LISP  programs  evaluated.  In  this  case,  the  speed-up  ratio 
is  the  ratio  of  the  number  of  execution  steps  required  for  a 
sequential  execution  to  the  number  of  stages  required  for  a 
parallel  execution. 

The  sample  programs  analyzed  by  the  interpreter  were  not 
chosen  because  they  generate  particularly  large  speed-up 
ratios.  Rather,  they  were  chosen  as  "typical"  programs 
offering  a  reasonable  blend  of  conditional  expressions, 
functional  composition,  and  recursion.  The  speed-up  ratios 
computed  for  these  programs  provide  a  very  limited  view  of 
the  improved  efficiency  possible  with  a  general  purpose 
parallel  processing  system.  ILLIAC  IV,  the  most  widely 
known  of  the  existing  parallel  processors,  is  call  an  array 
processor  because  it  *was  developed  to  process  a  class  of 
algorithms  for  which  the  speed-up  ratios  are  enormous. 
Matrix  multiplication  is  an  example  of  an  operation  for 
which  large  speed-ups  are  possible,  and  it  is  included  among 
the  sample  programs.  In  order  to  gain  some  insight  into  the 
results  expected  from  the  sample  programs,  the  remaining 
paragraphs  of  this  section  will  discuss  the  speed-ups 
possible   in  matrix  multiplication  and  summation  algorithms. 


D.   THE  EXAMPLE  OF  MATRIX  MULTIPLICATION 


3 
Multiplication   of   two   n  x  n   matrices    requires    n 
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2 
multiplications   and   n  (n-1)   additions.    When   performed 

3     2 
sequentially,   this   process    requires    n   +  n  (n-1)    (or 

3     2 

2n   -  n  )   steps,   where   a   step   is   one   addition   or  one 

3 
multiplication.    Observe,   however,   that   all   of   the   n 

multiplications   are  independent  of  one  another  and  could  be 

3 
done   in    one   step   consisting    of    n    simultaneous 

3 
multiplications    (assuming    there    were    n    multipliers 

available) . 


2  2 

The      n    (n-1)    additions    represent    the    n      summations,    each 

of    n    products   from    the   multiplications,    which      will      produce 

2  2 

the   n    elements   of   the  product  matrix.   Certainly  the  n 

summations  are  independent  of  one  another  and  hence  could  be 
performed  in  parallel. 


Now  consider   the   summation   of   n   elements.    Such   a 

summation   requires   n-1   additions.    Because   addition   is 

associative,  the   order   in   which   the   n-1   additions   are 

preformed   will  not  affect  the  outcome.   Because  addition  is 

a  binary  operation,  the  summation  process  can  be  started   by 

simultaneously   adding    Ln/2J   pairs   of   addends.3    The 

summation   process   can   then   be  reapplied   to   the   r~n/2~l 

remaining   elements.    This   procedure   will  still  require  a 

total  of  n-1  additions,  but  only  flog  n"l  steps  are   required 

2 


3    For   a    real    number    x, 
fx]    denotes   an   integer   such    that    x   <    Txl    <    x  +  1,    and 
jjcj    denotes    an   integer   such    that    x-1    <    |_xj    -    x* 
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(assuming  a  minimum  of  l_n/2J  adders  are   available   for   the 
first  step) . 

Hence,  the  total  process  of  matrix  multiplication  of  two 

n  x  n   matrices  could  be  performed  in  1  +  ("log  n~|  steps.   Of 

2 

3 
course,   such   a   parallel   computation   would   require   n 

2 

multipliers   for   step   1,   n  ( Ln/2J  )  adders  for  step  2,  and 

approximately  half  as  many  adders  for  each  successive   step. 

Consider  the  multiplication  of  two  8x8  matrices.  If  done 
sequentially,  this  process  would  require  960  steps.  If  done 
with  optimum  paralleling,  this  process  would  require  only  4 
steps!  Hence,  a  speed-up  ratio  of  240  could  be  achieved  by 
512  parallel  multipliers  and  256  parallel  adders.  A  LISP 
program  which  multiplies  two  4x4  matrices  is  included 
among  the  sample  programs  and  will  be  discussed  in  Section 
IV. 


E.   SPEED-UP  FOR  ASSOCIATIVE  PROCESSES 


There  is  a  general  result  for  the  speed-up  possible  in  a 
process  composed  of  associative  sub-processes  such  as  the 
summation  process  just  discussed.  To  develop  this  result  it 
is  necessary  to  define  some  terms. 

As  used  herein,  the  term  "primitive"  (or  "primitive 
process")  refers  to  a  member  of  the  set  of  operations  that 
can  be  performed  by  a  processor.  A  processor  is  an  agent 
(human  or  machine)  which  can  carry  out  a  process.  The 
process   may  be  just  a  primitive,  or  it  may  be  a  composition 
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of  primitives.  In  the  eximple  of  multiplying  two  matrices, 
the  process  of  matrix  multiplication  was  composed  of  the 
primitives  for  scalar  multiplication  and  addition.  For  some 
processors,  multiplication  is  a  process  composed  of  the 
primitives  shift  and  add. 

The  operands  for  primitives  may  be  referred  to  as  data 
elements.  A  primitive  may  be  unary,  binary,  or  .  n-ary, 
meaning  that  it  processes  one,  two,  or  n  data  elements  in 
one  processing  step.  The  physical  action  implied  by  the 
terms  primitive  process,  process,  and  data  elements  can  be 
described  abstractly  by  the  terms  initial  functions, 
functions,  and  set  elements. 

The  following  general  formula  represents  the  speed-up 
ratio  which  can  be  achieved  by  an  ideal  parallel  processing 
system4  for  a  general  process  composed  of  associative, 
n-ary,  primitives  acting  on  a  set  of  N  data  elements. 

|~(N-1)  /  (n-1)l 

speed-up  ratio  = ,    n  >  2 

|_log  NJ 
n 

The   numerator  represents  the  number  of  steps  required  for  a 

sequential  execution.   Each  sequential  step  would  reduce  the 

number   of   data   elements  remaining  by  n-1  until  n  or  fewer 

elements  remained.   The  final  step  would  reduce   the   number 

of   elements   to  one.   The  denominator  represents  the  number 

of  steps  required  for  a  parallel  execution.   At   each   step, 

successive   n-tuples   would   be   operated   upon  in  parallel. 

Brent  [Ref.  9]   provides  an  analysis  of   parallel   execution 

times  possible  for  arithmetic  expressions  in  general. 


F.   COMPARISON  OF  SUMMATION  ALGORITHMS 


4  An  ideal  parallel  processing  system  is  one   that   has 
all  the  primitive  processors  it  will  ever  need. 
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Because  summation   is   a   process   composed   of   binary, 

associative   additions,   a  speed-up  ratio  of  (N-1)  /  I  log  N| 

2 

can   be   achieved   when   summing   N   data   elements.    Three 

summation   algorithms,   one   serial   and   two   parallel,  are 
considered. 


The   following   program   segment   represents   a   typical 

FORTRAN  subroutine  for  summing  a  vector  of  integers. 

FUNCTION  SUM  (INTGRS,  N) 
DIMENSION  INTGRS  (N) 
ISUM  =  0 
DO  1  I  =  1  ,  N 
1      ISUM  =  ISUM  +  INTGRS  (I) 
RETURN 

This   serial  algorithm  actually  requires  N  steps.   Since  the 

FORTRAN  DO  loop  will  be   processed   at   least   once,   it   is 

necessary   tc  allow   for  the  case  where  the  vector  contains 

only  one  integer. 

The    following   segment   from   Ref.   4   is   a   parallel 

algorithm  for  the  summation  process  written  in   TRANQUILITY. 

BEGIN  INTEGER  ARRAY  A[0:255];   INTEGER  I,J,K,; 
FOR  (K)  SEQ  (0,...,7)  DO 
BEGIN 
J  *-  2fK; 
FOR  (I)  SIM  (0,...,255)  DO 

A[I]  -  A[I]  +  A[  (I  +  J)  MOD  256] 
END; 
END: 

This   segment   is   designed  to  use  256  processor  elements  to 

sum  exactly  256  elements.   If  the  input  data   set   has   less 

than   256   elements,  the  remaining  elements  of  the  array  are 

given  zero  values.   If  there  are  more  than  256  elements   the 

extras    are    folded   across   the   256   processing   element 

memories,  and  each  processor   performs   a   serial   summation 

before   the   above   segment   is   invoked.    Referring  to  the 

result  developed  in   sub-section   D,   the   number   of   steps 

required   for   the   parallel   summation   of   256  elements  is 
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log  256  or  8.   The  outer  FOR  loop  represents   this   sequence 
2 

(SEQ)   of   8  (0,...,7)  steps.   The  inner  FOR  loop  causes  the 

simutaneous  execution  (SIM)  of  the   '+*   primitive   by   each 

processor   (0,...,255).    This  inner  loop  will  be  executed  a 

total  of  8  times  after  which  each   processing   element   will 

contain  the  final  sum. 

The  last  summation  algorithm  presented  here   is   in   the 

syntax  of  the  LISP  metalanguage. 

sum[a]  =  [null[cdr[  a  1  ]  -»  carfa]; 
T  -•  sum[  reduce[a  ]  ]  J 

reduce[a]  =  [null[a]  -»  NIL:  null[cdr[a]J  —  a; 


iull[a]  -*  NIL:  null[cdr[a]J  -  a 
T  —  cons[ add[ car[ a j ;  cadrfa]]; 
reduce[cddr[a  ]  ]  ] 


The  variable  ■ a'  represents  a  list   of   integers   to   be 

summed.    If  the  list  contains  two  or  more  integers,  the  sum 

function  calls  on  the  reduce  function.   The  reduce   function 

adds   successive  integer  pairs  and  returns  a  reduced  list  of 

integers.   The  sum  function  is  then  applied  to  the   reduced 

list.    This   process  continues  until  the  list  contains  only 

one  integer  which  is  the   final   sura.    By   computing   these 

arguments   in  parallel  the  above  algorithm  will  generate  the 

sum  of  N  elements  in  |~log  N~|  addition  steps. 

2 

Section  II  provides  some  background  information  on  data 
flow  graphs  and  LISP  programs.  This  information  is 
necessary  for  understanding  the  development  of  evalquote2 
discussed  in  Section  III.  Section  V  proposes  a  "skeletal" 
hardware  organization  for  implementing  the  parallel 
execution  described  by  evalguote2. 
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II.        BACKGROUND 


This  section  contains  background  information  necessary 
for  understanding  the  development  of  Evalquote2  in  Section 
III  and  the  test  programs  discussed  in  Section  IV.  Included 
is  a  discussion  of  LISP  concepts  and  a  modified  version  of 
the  LISP  metalanguage  syntax  which  is  used  for  the  programs 
in  this  thesis.  Data  flow  graphs  are  explained  as  a  tool 
for  recognizing  parallelism,  and  the  g-vector  is  introduced 
as   a   notational   device   for    describing    data    flow    graphs. 


A.       THE    LISP    LANGUAGE 


The  LISP  language  is  best  described  by  Section  I  of  Ref. 
10.  An  overview  of  the  language  will  be  provided  here. 
Appendix  A  contains  the  language  syntax  for  the  programs 
used  in  this  thesis.  Because  these  programs  were  run  on  a 
S/360  using  EBCDIC  characters,  the  notation  differs  slightly 
from   the    notation    published    in   Ref.    10. 

A  LISP  program  is  a  LISP  function  and  an  argument  list 
whose  elements  are  S-expressions  (symbolic  expressions) .  An 
S-expression  can  be  one  symbol  called  an  atom,  or  it  can  be 
an  ordered  list  of  S-expressions  which  is  usually  delimited 
by  parentheses.  There  are  three  primitive  functions  used  to 
manipulate  S-expressions.  The  CAR  function  gives  the  first 
element  within  an  S-expression.  The  CDR  function  gives  the 
S-expression  remaining  after  removal  of  the  first  element. 
The  CONS  functions  takes  two  S-expressions  and  produces  a 
new   S-expression   by   inserting   the    first   S-expression   as      the 
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first  element  within  the  second  S-expression.  For  example, 
CAR<(A  B  C)  >  gives  A,  CDR^(A  B  C)  >  gives  (3  C)  ,  and 
CONS<A;  (B  C)  >  gives  (ABC).  An  empty  list,  (),  is 
equivalent  tc  the  atom  NIL. 

There  are  two  primitive  functions  which  are  predicates. 
EQ  gives  the  atom  T  if  its  two  arguments  represent  the  same 
atom,  or  F  otherwise.  ATOM  gives  the  atom  T  if  its  argument 
is  an  atom,  or  F  otherwise. 

The  version  of  LISP  used  in  this  thesis  includes  the 
primitives  ADD  and  MUL  which  give  the  sum  and  product, 
respectively,   of  two  atoms  which  are  non-negative  integers. 

By  allowing  the  operations  of  composition  and  recursion, 
the  class  of  functions  definable  in  terms  of  the  primitive 
functions  can  be  expanded  to  the  set  of  partial  recursive 
functions  over  the  domain  of  S-expressions .  McCarthy  [11] 
gives  a  formal  development  of  the  class  of  functions 
computable  in  terms  of  given  base  functions.  Any  function 
belonging  to  the  class  of  computable  LISP  functions  can  be 
described  with  the  use  of  LAMBDA  and  LABEL  notations  and 
conditional  forms. 

These  notations  will  be  explained  in  terms  of  the  syntax 
of  Appendix  A.  Non-terminal  symbols  are  in  lower  case 
letters.   The  LABEL  notation  looks  like 

5KFN;  function>, 
where   FN   is   the  name  assigned  to  the  function.   The  LABEL 
notation   allows   the    programmer    to    define    recursive 
functions.   The  LAMBDA  notation  looks  like 

&<<X;. . . ;XN>;  form>, 
where  X1  through  XN  are  dummy  variables  used  within  the  form 
which  defines  the   function.    When   a   LAMBDA   function   is 
applied   to   a  set  of  S-expressions,  the  dummy  variables  are 
assigned  the  values  of  the  corresponding  S-expressions. 
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There  are  four  possibilities  for  a  form.  It  may  be 
merely  a  constant  or  a  variable.  Or  it  may  be  another 
function  with  its  own  argument  list.  Or  lastly,  it  may  be  a 
conditional  form.  In  the  syntax  of  Appendix  A,  conditional 
forms  appear  as  a  list  of  predicate-expression  pairs. 
Conditional  forms  are  evaluated  by  evaluating  successive 
predicates  until  one  of  them  evaluates  to  T.  The  value  of 
the  corresponding  expression  then  becomes  the  value  of  the 
entire  conditional  form. 

A  more  general  notation  for  a  conditional  form  is  (p  -i 
c,a),  where  p  is  the  premise,  c  is  the  conclusion,  and  a  is 
the  alternative.  The  premise  is  a  propositional  form  which 
evaluates  to  a  truth  value.  The  value  of  the  premise 
determines  whether  the  conclusion  or  the  alternative  will 
give  the  value  of  the  form.  The  conclusion  and  the 
alternative  may  themselves  be  conditional  forms.  Reference 
11  includes  a  detailed  discussion  of  the  formal  properties 
of  conditional  forms. 


B.   FUNCTIONALS  AND  PROGRAM  ORGANIZATION 


As  defined  by  the  syntax  in  Appendix  A,  an  argument  can 
be  a  form  or  a  function.  Functions  which  accept  functions 
as  arguments  are  called  functionals.  The  best  known 
functional  in  LIS?  is  evalquote.  Evalguote  takes  as 
arguments  any  LISP  function  and  its  argument  list  and  gives 
the  result  of  the  function  applied  to  its  arguments,  i.  e., 

EVALQUOTE<f unction;  (argument. . .argument) > 
is  equivalent  to 

function< argument ; . . . ; argument) . 
Reference  10  describes  evalquote.    Appendix   D   contains   a 
program  listing  of  evalquote  in  the  syntax  of  Appendix  A. 
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The  concept  of  functionals  has  powerful  implications. 
One  of  the  features  of  functionals  is  that  they  enable  the 
programmer  to  achieve  the  same  economy  of  expression  and 
memory  space  that  is  achieved  in  other  programming  languages 
through  the  use  of  subroutines.  A  function  can  be  defined 
once  as  an  argument  to  a  LAMBDA  function.  The  function 
definition  is  then  paired  with  a  variable  and  can  be  used 
repeatedly  in  the  defining  form  of  the  LAMBDA  function. 

The  sample  programs  presented  in  this  thesis  make  use  of 
functionals  in  this  way.  The  general  organization  of  these 
programs  is  given  below.  Comments  are  enclosed  in  single 
guotes.   Non-terminal  symbols  are  in  lower  case  letters. 

&<<VAR1 ; . . . ; VARN> ;        'program  variables' 
&<<F1 ; . . . ;FM>;       'function  names' 

form>  'defining  form  for  the  program 

in  terms  of  V1  through  VN 
and  F1  through  FM' 
<'F1'  function;      'function  definitions' 
•F2*  function; 

*  •  • 

'FM*  function>>     'end  of  program  function' 
<s-exp1  ;. . .  ;s-expN>       'program  argument  list' 
#  'EOF  symbol' 


DATA  FLOW  GRAPH 


A  data  flow  graph  is  a  graphical  description  of  the 
execution  of  a  specific  program.  The  entities  depicted  by  a 
data  flow  graph  are  data  elements  and  primitive  processes. 

For  the  sample  data  flow  graphs  of  this  section,  the 
nodes  are  labeled  with  primitive  processes  and  the  edges  are 
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labeled  with  data  elements.  Figure  1  is  the  data  flow  graph 
for  the  FORTRAN  function  SUM  (from  Section  I)  where  the  data 
is  an  integer  vector  of  eight  1's.  Only  the  primitive  '  +  ' 
is  used  in  the  graph.  Figure  2  is  the  data  flow  graph  for 
the  LISP  function  SOM  (also  from  Section  I)  applied  to  a 
list  of  eight  1's.  Again  only  the  primitive  'ADD1  is  used 
in  the  graph.  For  a  specific  program  execution  the  data 
flow  graph  illustrates  the  execution  order  among  the 
primitive  processes,  specifically  describing  which  processes 
can  be  performed  simultaneously  and  which  must  be  performed 
in  sequence. 

In  graph  theory,  an  edge  is  usually  defined  by  the  two 
nodes  to  which  it  is  connected.  There  are  edges  in  the 
graphs  of  figures  1  and  2  which  are  connected  to  only  one 
node.  This  is  only  a  superficial  discrepency  which  can  be 
corrected  by  viewing  the  data  elements  as  nodes  and  the 
primitive  processes  as  edges.  Figure  3  shows  this  dual  form 
for  the  graph  of  figure  2.  In  the  dual  form,  a  binary 
primitive  process  is  represented  by  two  edges. 

In  graph  theory  a  path  is  defined  as  any  sequence  of 
edges  in  which  each  successive  edge  originates  from  the 
terminal  node  of  the  preceding  edge.  A  data  flow  graph  is 
an  acyclic  directed  graph.  The  term  "directed"  means  that  a 
direction  is  associated  with  each  edge.  "Acyclic"  implies 
that  no  edges  are  repeated  in  any  path.  The  length  of  a 
path  is  defined  as  the  number  of  edges  in  the  path.  The 
length  of  the  longest  path  in  the  dual  form  of  a  data  flow 
graph  represents  the  number  of  execution  stages  which  would 
be  required  in  a  parallel  execution. 

The  width  of  a  data  flow  graph  at  a  particular  stage  of 
execution  is  defined  herein  as  the  number  of  primitive 
processes  to  be  executed  at  that  stage.  Hence,  the  maximum 
width  represents  the  minimum  number  of   processors   required 
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Figure  1.   Graph  of  Fortran  Sum 
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Figure  2.      Graph  of  LISP  Sum 


Figure  3.   Dual  Form  of  LISP  Sum 
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for  optimum  parallel  execution. 

Data  flow  graphs  should  not  be  confused  with  program 
graphs.  Program  graphs  represent  abstractions  of  flow 
charts  and  are  useful  in  the  analysis  of  algorithms.  They 
highlight  the  flow  of  control  without  regard  to  a  particular 
data  set.   Program  graphs  are  usually  cyclic  digraphs. 

PAIRLIS  is  a  LISP  function  which  pairs  together  elements 
of  two  S-expressions  and  appends  the  resulting  list  of  pairs 
to  an  existing  list.  PAIRLIS  is  used  by  evalquote  to  pair 
variables  with  their  corresponding  S-expression  values  and 
store  these  pairs  on  the  association  list.  Program  1  of 
Appendix  D  isPAIRLIS<(A  B)  ;  (1  2);((C.3))>.  Figure  4  shows 
the  data  flow  graph  depicting  the  execution  of  this  program. 
This  graph  includes  all  the  primitives  used  in  PAIRLIS  and 
illustrates  the  order  in  which  they  are  executed.  Those 
primitives  which  line  up  vertically  may  be  executed  in 
parallel.  Otherwise,  the  primitives  are  executed  in  order 
from  left  to  right. 


D.   G-VECTOR 


A  g-vector  (graph  vector)  is  a  list  of  integers  which 
describes  a  data  flow  graph  which  in  turn  describes  a 
program   execution.    The   general   form   of   a   g-vector  is 

(w   w   ...  w  ).   The  number  of  elements  in   the   vector,   n, 
1   2       n 

represents   the   maximum   path  length  of  the  data  flow  graph 


which  is  the  minimum  number  of  steps   (or   stages)   required 

for   the   entire   computation.    Each   element,   w  ,   cf  the 

i 

g-vector    represents    the   width   of    the    data    flow    graph    (or    the 
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minimum  number  of  machine  level  processors  required  for 
optimum  paralleling)  at  step  i  in  the  computation.  The  sum 
of  the  elements  in  the  g-vector  represents  the  total  number 
of    primitive    processes    performed    in   the   computation. 

Each  data  element  in  the  data  flow  graph  describing  the 
execution  of  a  LISP  program  has  associated  with  it  a 
g-vector.  The        g-vector        describes        a      sub-graph      that 

represents  the  computations  performed  to  produce  the  data 
element.  The  g-vector  may  be  empty  as  is  the  case  with 
constants. 

There  are  two  binary  operations  which  can  be  performed 
on  a  pair  of  g-vectors.  A  g-vector  may  be  appended  to 
another  g-vector  to  produce  a  longer  resultant  g-vector. 
The  resultant  g-vector  represents  the  data  flow  graph  for 
two  processes  which  were  performed  in  sequence.  A  g-vector 
may  be  combined  with  another  g-vector  by  summing  their 
corresponding  elements.  The  resultant  "wider"  g-vector 
represents  the  data  flow  graph  for  two  processes  which  were 
performed  in  parallel.  The  g-vector  for  the  data  flow  graph 
of    figure   4    is    (1    4   2   4   2    1    1) . 
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III.       EVAL0.U0TE2 


Evalguote2  is  a  LISP  function  similar  to  Evalguote.  For 
input,  evalguote2  takes  two  S-expressions.  The  first 
S-expression  represents  any  LISP  function,  and  the  second 
S-expression  represents  a  valid  argument  list  for  that 
function.  As  with  all  LISP  programs,  the  output  from 
evalquote2  is  a  single  S-expression.  The  CAR  of  this 
S-expression  represents  the  result  of  the  input  function 
applied  to  the  input  argument  list.  The  CDR  of  the  output 
S-expression  is  the  g-vector  (a  list  of  integers)  describing 
the  data  flow  graph  resulting  from  the  application  of  the 
input  function  to  the  input  argument  list.  Appendix  3  is  a 
listing  of  evalguote2  applied  to  the  PAIRLIS  function  of 
Figure   4. 

The  sub-functions  used  to  define  evalguote2  are  similar 
to  the  sub-functions  used  to  define  evalquote  along  with 
some  additional  functions  used  to  compute  the  g-vector. 
These  sub- functions  will  be  discussed  shortly,  but  first 
will  be  a  discussion  of  the  logic  used  by  evalquote2  to 
compute    the    g-vector. 


A.       LOGICAL    DEVELOPMENT 


The  arguments  for  a  function  are  independent  of  one 
another  and  may  be  evaluated  simultaneously  (in  parallel). 
The  evaluation  of  each  argument  produces  a  resultant 
S-expression  and  g-vector.  When  an  argument  is  a  function 
with    its    own    argument    list,    the    g-vector    associated    with   the 
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resultant  data  element  describes  the  data  flow  graph 
determined  by  the  application  of  the  function  to  its 
argument  list. 

When  all  of  the  arguments  have  been  evaluated,  their 
associated  g-vectors  are  combined  to  produce  a  single 
g-vector.  The  g-vectors  are  combined  by  summing  their 
corresponding  elements.  The  resultant  g-vector  describes 
the  data  flow  graph  which  describes  the  parallel  evaluation 
of  the  arguments.  The  length  of  the  resultant  g-vector  will 
be  equal  to  the  length  of  the  longest  g-vector  created  in 
the  evaluation  of  the  argument  list.  Each  element  of  the 
resultant  g-vector  represents  the  number  of  primitive 
functions  that  were  executed  at  that  stage  in  the  parallel 
evaluation  of  the  argument  list. 

When  all  the  arguments  have  been  evaluated,  the  function 
can  be  applied.  The  application  of  the  function  to  the 
evaluated  argument  list  is  described  by  a  new  data  flow 
graph.  The  g-vector  for  this  graph  is  appended  to  the 
g-vector  for  the  combined  argument  list  to  produce  a  longer 
g-vector.  This  longer  g-vector  describes  the  total  data 
flow  graph  which  represents  the  evaluation  of  both  the 
function  and  its  argument  list. 

When  the  defining  form  for  a  function  is  a  conditional, 
the  g-vector  must  be  computed  in  a  way  which  describes  the 
evaluation  cf  a  conditional  form.  As  discussed  previously, 
the  general  form  for  a  conditional  is  (p  -•  c,a)  .  The 
possibility  of  parallel  evaluation  of  p,  c,  and  a  will  be 
discussed  later.  Normally  p  (the  predicate)  is  evaluated 
first  and  then  c  (the  conclusion)  or  a  (the  alternative)  is 
evaluated  next  depending  on  the  value  of  p.  Hence,  the 
g-vector  for  p  is  computed  first,  and  then  the  g-vector  for 
c  or  a  is  appended.  The  resultant  g-vector  describes  the 
sequential  evaluation  that  has  occurred. 
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B.       SUB-FUNCTIONS 


In  order  to  more  easily  understand  the  following 
explanations  of  the  sub- functions  used  in  evalquote2,  it  may 
be    helpful   to    scan    Appendix    B   before   proceeding. 

Apply2  computes  the  g-vector  describing  the  application 
of  a  function  to  its  arguments.  The  parameters  for  apply2 
are  similar  to  those  for  apply  except  that  the  second 
parameter  represents  both  the  argument  list  and  the  combined 
g-vector  describing  the  parallel  evaluation  of  the 
arguments.  Notice  that  when  apply2  is  first  called  by 
evalquote2,  the  g-vector  for  the  argument  list  is  empty. 
This  is  because  the  initial  arguments  are  all  S-expressions 
and  need  no  evaluation.  If  the  function  is  a  primitive, 
then  the  g-vector  describing  the  application  is  (1). 
Therefore,  (1)  is  appended  to  the  existing  g-vector  and  this 
new   g-vector   is   associated    with   the    resultant   data      element. 

If  the  function  is  a  lambda  or  label  expression,  or  a 
previously  defined  function,  then  the  defining  form  will  be 
evaluated  by  eval2.  Eval2  will  return  a  data  element 
associated  with  a  g-vector  describing  the  evaluation.  The 
sub-function  compose  is  then  used  to  append  the  g-vector 
returned  by  eval2  with  the  g-vector  that  came  with  the 
argument    list. 

Eval2  is  similar  to  eval  in  that  it  evaluates  forms. 
The  difference  is  that  eval2  associates  a  g-vector  with  an 
s-expression  (resultant  data  element)  for  each  evaluation. 
If  the  form  is  a  variable  or  a  constant  the  g-vector  is 
empty.       If    the   form    is    a    condit ional  ,t hen    evcon2    is      called. 
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Evcon2  is  similar  to  evcon  except  that  it  also  returns  a 
g-vector  describing  the  evaluation  of  the  conditional. 
Evcon2  evaluates  the  first  predicate  and  calls  on  graphcon. 
If  the  predicate  is  true,  graphcon  evaluates  the 
corresponding  expression  and  calls  compose.  Compose  appends 
the  g-vector  for  the  expression  to  the  g-vector  for  the 
predicate  and  associates  the  resultant  g-vector  with  the 
resultant  data  element.  If  the  predicate  is  false,  graphcon 
calls  compose  with  the  result  of  evcon2  applied  to  the 
remainder  of  the  conditional  and  the  g-vector  of  the  first 
predicate . 

If  the  form  given  to  eval2  is  a  function  with  its 
argument  list,  the  argument  list  is  given  to  evlis2  for 
evaluation.  Evlis2  is  similar  to  evlis  in  that  it  evaluates 
arguments,  but  it  also  combines  the  g-vectors  of  evaluated 
arguments  to  produce  a  resultant  g-vector  describing  the 
parallel  evaluation  of  the  arguments. 

The  sub-function  compose  is  used  to  compute  g-vectors 
resulting  from  the  composition  of  functions.  Composition  of 
functions  describes  computat ional  processes  which  must 
naturally  occur  in  seguence.  Compose  is  called  from  apply2 
and  graphcon.  Append  is  a  standard  LISP  function  used  to 
create  a  new  list  of  the  top  level  elements  of  two  input 
lists.  Append  is  called  from  apply2  and  compose.  Combine 
is  used  to  compute  g-vectors  representing  the  parallel 
evaluation  of  arguments.  Combine  is  called  from  evlis2. 
Sum  is  used  by  combine  for  adding  corresponding  elements  of 
two  g-vectors.  The  remaining  sub-functions  are  identical  to 
sub-functions  used  in  evalquote. 
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IV.   RESULTS  OF  EVALO.UOTE2  IMPLE MENTATION 


Evalquote2  has  been  implemented  through  an  interpreter 
program  written  in  Algol-W.  This  section  documents  the 
interpreter  which  has  been  compiled  to  run  on  a  S/360.  Also 
discussed  are  the  sample  LISP  programs  which  were  run  under 
the  interpreter  and  their  results. 


A.   THE  ALGOL-W  INTERPRETER 


Appendix  E  contains  a  source  listing  for  the 
Interpreter.  Functionally,  the  interpreter  is  nearly 
identical  to  evalguote2.  That  is,  it  produces  the  result  of 
a  LISP  function  applied  to  its  arguments  along  with  the 
associated  g-vector.  The  following  paragraphs  summarize  the 
organization  of  the  Interpreter. 

1 .   Input 

For  input,  the  Interpreter  accepts  programs  written 
in  the  metalanguage  syntax  of  Appendix  A.  Input  is  expected 
from  80-character  records  and  can  be  written  free-form 
(column  independent). 

If  the  first  character  of  a  record  is  a  '$',  the 
second  character  represents  a  toggle  and  causes  a  logical 
variable  to  be  reset.  The  remainder  of  the  record  is 
ignored  and  may  be  used  to  comment  on  the  reason  for  the 
toggle.   If  the  toggle   is   a   '$',   it   causes   the   toggle 
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records  to  be  listed  until  the  next  »$$'  record  is 
encountered.  '$L'  resets  the  LISTING  variable  which  is 
turned  on  initially.  '$T'  resets  the  TRANS  variable  which 
is  turned  off  initially.  When  on,  TRANS  causes  the 
S-expression  translations  of  the  input  function  and  argument 
list  to  be  printed  on  the  output  device.  *$A'  causes  only 
the  arithmetic  operators  (ADD  and  MUL)  to  be  included  in  the 
computation  of  the  g-vector. 

If  the  first  character  of  a  record  is  a  '*',  the 
entire  record  is  considered  a  comment.  Single  guotes  are 
used  to  delimit  in-line  comments. 


2 •   Translation 

The  SCANNER  routine  reads  tokens  (identifiers, 
constants,  numbers,  and  specials)  from  the  input  stream. 
The  translation  routines  change  the  program  into  two 
S-expressions  (one  for  the  function  and  one  for  the  argument 
list)  and  store  them  in  memory  in  the  form  of  linked  lists. 
The  translation  routines  function  in  accordance  with  the 
translation  rules  of  Appendix  C.  These  translation  rules 
were  derived  from  the  rules  for  translating  M-expressions  to 
S-expressions  presented  in  Ref.  10. 

3  •   Interpretation 

Because  Algol-W  supports  recursion,  the 
interpretation  routines  are  nearly  identical  to  evalquote2 
which  was  explained  in  the  previous  section.  The  evalguote2 
procedure  within  the  Interpreter  may  be  viewed  as  a 
microprogram  in  a  hypothetical  LISP  machine.  The  machine's 
memory  already  contains  an  S-expression  for  a  function  and 
an  S-expression  for  an  argument  list.   The  machine  generates 
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a  resultant  S-expression  containing  the  program   result   and 
the  g-vector. 

4  .   0 u t£U t 

The  output  from  the  Interpreter  includes  the 
resultant  S-expression  containing  the  program  result  and 
g-vector  and  also  a  summary  of  the  information  contained  in 
the  g-vector.  The  summary  includes  the  number  of  processing 
elements  required  for  a  parallel  execution,  the  number  of 
execution  steps  required  for  both  a  sequential  and  a 
parallel  execution,  and  the  speed-up  ratio.  Additional 
output  from  the  Interpreter  includes  diagnostic  error 
messages   for  the  more  common  syntactic  and  semantic  errors. 


B.   SAMPLE  PROGRAMS 


Appendix  D  contains  the  sample  LISP  programs  which  were 
run  under  the  interpreter.  Program  1  is  the  PAI3LIS 
function  with  the  same  arguments  used  to  generate  the  data 
flow  graph  of  Figure  4.  Program  1  is  included  to  illustrate 
the  output  from  the  Interpreter.  The  output  includes  the 
program  listing  followed  by  the  S-expression  translations  of 
the  function  and  argument  list  (enabled  by  the  $T  toggle) . 
The  CDR  of  the  resultant  S-expression  can  be  compared  with 
the  data  flow  graph  of  Figure  4. 

1 •   Matrix  Multiplication 

Programs  2  through  5  represent  matrix  multiplication 
of  two  4x4  matrices  in  which  all  the  elements  are  1's. 
Hence,  the  resulting  product  matrix  is  a  4  x  4  of   all   4's. 
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The  S-expression  representation  for  the  first  factor  is  in 
row  major  order  while  the  second  factor  is  in  column  major 
order . 

Programs  2  and  3  use  the  same  algorithm  to  compute 
the  matrix  product.  Program  3  uses  the  $A  toggle  to  include 
only  arithmetic  operations  in  the  computation  of  the 
g-vector.  The  MATMUL  function  computes  the  rows  of  the 
product  matrix  by  calling  the  row  function.  The  row 
function  computes  the  elements  of  each  row  by  calling  the 
dot  function.  The  dot  function  computes  the  dot  product  of 
each  row  of  the  first  factor  with  each  column  of  the  second 
factor.  The  dot  function  is  defined  so  as  to  sequentially 
add  the  integer  products  of  vector  elements.  As  discussed 
in  Section  I,  this  is  not  the  optimum  way  to  define  an 
associative  process  for  a  parallel  processor. 

Programs  4  and  5  use  the  sum  function   presented   in 

Section   I   to   optimize  the  summation  required  for  each  dot 

product.   The  g-vector   computed   for   program   5   considers 

arithmetic   operations   only.    Note   that   the   results  for 

program  5  correspond  to  the  theoretic  results   discussed   in 

Section  I.   That  is,  the  number  of  required  sequential  steps 

3   2 
is  2n  -n  ,  or  112  for  n='4  .   The  number  of  parallel  steps   is 

1  +  |~log  n\      or   3   for  n=4  .    Because   program   3  performs 
2 

additions  sequentially,  it  requires  one  more   parallel   step 

than  program  5. 

The  speed-up  ratios  computed  for  programs  4  and  5 
might  be  considered  as  lower  and  upper  bounds,  respectively, 
for  an  actual  speed-up  ratio  (one  that  compares  an  actual 
parallel  machine  with  an  actual  sequential  machine) . 
Program    5    ignores    the    data    accesses    represented    by    CAR,    CDR, 
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and  CONS  operations  and  also  execution  controls  represented 
by  the  EQ  operation.  Obviously,  the  data  must  be  moved  into 
position  in  order  to  be  operated  upon,  even  if  the  movement 
of  data  takes  place  in  parallel.  Program  4  computes  the 
speed-up  ratio  by  giving  the  same  weight  to  CAR,  CDR,  CONS, 
and  EQ  as  it  gives  to  ADD  and  MUL.  This  is  not  necessarily 
a  correct  assumption  either,  since  data  can  normally  be 
accessed  from  a  high-speed  memory  faster  than  the  arithmetic 
operations  can  be  performed. 

2 .   Symbolic  Differentiation 

Programs     6    and    7    represent    the    symbolic 

4 

differentiation  of  a  fourth  degree  binomial,  (x  +  y)  ,   with 

respect    to   x.    The   function  consists   of   two   primary 

sub-functions.  DIFF  computes  the  derivative  by  the  rules 
for  differentiating  algebraic  expressions.  SIMP  simplifies 
the  result  by  eliminating  factors  of  "1"  and  addends  of  "0." 

For   program   6   the   S-expression  representation  of 

4 
(x  +  y)   is 

({(x  +  y)  *  (x  +  y))  *  ((x  +  y)  *  (x  +  y) ) )  . 

In  this  expression  the  data  is  arranged  symmetrically.  For 
program  7  the  data  is  arranged  asymmetrically  and  looks  like 

((x  +  y)  *  ((x  +y)  *  ((x  +  y)  *  (x  +  y) ) ) )  . 
As  expected  the  speed-up  ratio  is  greater  for  program  6 
(5.2)  than  for  program  7  (4.1).  This  comparison  was  made  to 
provide  an  example  in  which  symmetrically  organized  data 
caused  a  greater  speed-up  ratio  than  the  same  data  organized 
asymmetrically. 


36 


3  •   II§.i2J^2i.6 

Program  8  is  the  universal  function  evalquote.  The 
arguments  for  evalquote  are  the  S-expression  translations 
from  program  1.  The  speed-up  ratio  for  program  8  is  1.86. 
This  is  the  smallest  speed-up  ratio  of  all  the  sample 
programs.  Additional  runs  were  made  with  this  program  in 
which  the  PAIRLIS  function  paired  lists  of  three  elements 
each  and  lists  of  four  elements  each.  Each  run  produced 
essentially  the  same  speed-up  ratio  (1.86)  . 

For   the  matrix  multiplication  examples,  the  data  is 

two-dimensional.   As  the   size  of   the   matrix   factors   is 

increased,  the  resulting  data  flow  graph  widens  at  a  greater 

rate  than  it   lengthens.    In   fact   it   widens   at   a   rate 

3 
proportional    to     n     (the    number    of   simultaneous 

multiplications)  while  it  lengthens  at  a   rate   proportional 

to   log  n.    Program   8,   on  the  other  hand,  is  operating  on 

one-dimensional  data.    Increasing   the   size   of   the   data 

elements  for  PAIRLIS  causes  the  total  number  of  elements  in 
the  data  flow  graph  to  increase  at  the  same  rate  as  the 
length  increases.  Hence,  the  speed-up  ratio  remains 
essentially  constant. 
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V.   HARDWARE  CONSIDERATIONS 


The  problem  addressed  in  this  section  is  how  to  design  a 
hardware  system  which  will  implement  the  parallel  execution 
of  algorithms  which  are  defined  by  a  software  system  sach  as 
"pure"  LISP.  A  detailed  hardware  design  will  not  be  given. 
Rather,  a  "skeletal"  design  for  the  hardware  will  be 
presented  at  a  functional  level  in  order  to  bring  out  some 
of  the  considerations  involved  in  any  design. 

Before  proceeding  with  the  example  design,  some 
clarification  of  terminology  will  be  given.  A  parallel 
processing  system  refers  to  both  the  software  and  hardware 
portions  of  a  complete  system.  A  parallel  processing 
machine  (or  computer)  refers  to  the  hardware  alone, 
including  at  least  memory  and  processors.  A  parallel 
processing  system  might  include  one  or  more  parallel 
processing  machines.  The  processor  module  refers  to  the 
module  within  a  machine  which  contains  the  processing 
elements.  A  processing  element  refers  to  a  single 
processor. 

A  parallel  processing  machine  must  perform  a  function 
similar  to  evalquote2.  That  is,  it  must  evaluate  a  LISP 
function  applied  to  its  arguments  and  in  the  process 
recognize  parallelism.  The  data  for  this  machine,  both 
functions  and  operands,  is  in  the  form  of  ordered  sets 
(parenthetical  expressions) .  This  data  can  be  stored  in  a 
sequentially  organized  memory  in  the  form  of  linked  lists. 


A.   PROCESSOR  MODULE 
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Ideally,  the  processor  module  would  be  constructed  on  a 
single  chip.  Figure  5  is  a  modular  diagram  of  a  processor 
module.  Each  processing  element  in  the  module  represents  a 
hardware  implementation  of  evalquote.  There  are  three 
inputs  to  a  processing  element.  The  first  input  is  a  memory 
address  for  a  program  or  a  form  as  defined  by  the 
metalanguage  syntax.  The  second  input  is  a  device  address 
for  returning  the  result  to  be  computed.  The  third  input  is 
the  memory  address  of  the  applicable  association  list.  The 
outputs  from  a  processing  element  are  the  result  of  the 
function  applied  to  its  arguments  and  the  address  of  the 
device  for  which  this  result  is  destined. 

1 •  1U&   Processor  Manager 

The  processor  manager  controls  data  transfers 
between  the  processing  elements.  The  processor  manager  also 
keeps  track  of  the  status  (busy  or  free)  of  each  processing 
element.  Initially,  a  LISP  program  (a  list  containing  a 
function  and  constant  arguments)  is  made  available  to  a 
processor  module  from  an  external  agent  such  as  a  terminal 
user  or  another  parallel  processing  machine.  After  the 
program  is  read  into  memory,  the  processor  manager  assigns 
the  program  to  a  processing  element  along  with  a  return 
address  to  an  external  device  (terminal,  printer,  external 
storage,  or  another  parallel  processing  machine) .  As  the 
processing  element  recognizes  processes  which  can  be 
computed  in  parallel  these  processes  are  made  available  to 
the  processor  manager  for  assignment  to  other  available 
processing  elements.  The  return  address  for  these  processes 
will  be  the  processing  element  that  originated  them.  When 
all  processing  elements  are  busy  the  processor  manager  will 
queue  waiting  processes. 
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Figure  5.   Processor  Module 
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2 .  The  Memory  Manager 

The  memory  manager  controls  the  common  memory. 
Between  programs,  the  memory  manager  converts  memory  into  a 
single  list  of  free  storage  cells.  This  list  is  made 
available  for  reading  a  new  program  into  memory.  Once 
execution  has  begun,  the  memory  manager  provides  free 
storage  cells  to  each  processing  element  for  use  in 
performing  the  CONS  primitive.  Garbage  collection  is 
performed  by  monitoring  the  association-list  stack  in  each 
processing  element  and  returning  links  from  outdated  lists 
to  the  free  storage  list. 

3 .  Timing 

By  constructing  the  processor  module  on  a  single 
chip  it  can  be  controlled  by  a  single  timer.  Two  basic 
clock  cycles,  a  compute  cycle  and  a  transfer  cycle,  are 
required . 

The  compute  cycle  enables  all  the  processing 
elements  to  perform  a  computation  if  they  have  one  to 
perform.  Also  during  this  cycle,  the  processor  manager's 
list  of  available  processors  is  updated  via  the  status  flags 
on  each  of  the  processing  elements.  During  the  compute 
cycle  the  memory  manager  can  perform  garbage  collection  or 
issue  free  storage  cells. 

During  the  transfer  cycle  the  processor  manager 
performs  a  linear  sweep  cf  the  processing  element  output 
ports.  As  an  output  port  with  data  to  be  transferred  is 
swept,  the  destination  (indicated  by  the  return  address)  is 
enabled  and  the   data   transferred.    One   entire   sweep   is 
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performed  in  a  single  transfer  cycle.  Simultaneously, 
during  the  transfer  cycle,  the  memory  manager  performs  a 
linear  sweep  of  the  memory  ports  for  each  processing 
element.  All  memory  read  and  write  operations  are  performed 
during  a  single  transfer  cycle. 


B.   A  PROCESSING  ELEMENT 


Figure  6  is  a  modular  diagram  of  a  single  processing 
element.  The  purpose  of  a  processing  element  is  to  accept, 
as  input,  a  form,  as  defined  by  the  metalanguage  systax,  and 
to  produce,  as  output,  the  evaluated  result  of  the  form. 
The  actions  of  the  processing  element  are  controlled  by  the 
decode-and-ccntrol  module  (DCM) .  The  DCM  contains  the 
microprograms  for  all  the  primitive  functions  (CAR,  CDR, 
CONS,  ADD,  etc.).  The  DCM  also  manages  four  pushdown  stacks 
which  are  reguired  for  evaluating  complex  forms.  The  DCM 
also  controls  the  processing  element  status  register  and  the 
I/O  to  the  processor  transfer  bus  and  the  memory  bus. 
Figure  7  is  a  functional  flow  chart  describing  the  tasks 
performed  by  the  DCM. 

The  inputs  to  a  processing  element  are  provided  by  the 
processor  manager  or  by  the  processing  element's  own  DCM. 
The  first  input  is  the  address  of  a  form  and  goes  into  the 
program  register.  The  second  input  is  the  address  of  the 
association  list  for  the  form.  If  the  form  is  an  original 
program  (function  and  constant  arguments)  from  an  external 
device,  then  the  association  list  will  be  empty.  The 
incoming  return  address  register  receives  the  address  of  the 
device  to  which  the  result  will  be  sent. 


C.   DECODE  AND  CONTROL  MODULE 
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Figure  6.   Processing  Element 
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Figure  7.  Flow  Chart  for  Decode  and  Control  Module  (1  of  3) 
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Figure  7.   Plow  Chart  of  PCM  (3  of  3) 
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The  DCM  is  designed  to  implement  the  overall  policy  of 
the  parallel  processing  system.  That  policy  is  to  perform 
sequential  processes  in  sequence  and  to  enable  parallel 
processes  to  be  performed  in  parallel.  Hence,  if  the  form 
that  is  input  to  the  program  register  is  a  function  and  a 
set  of  unevaluated  arguments,  then  the  DCM  will  stack  the 
function  on  the  function  pushdown,  input  one  of  the 
arguments  to  its  own  processing  element,  and  send  the 
remaining  arguments  to  the  processor  manager  for  parallel 
evaluation  by  other  available  processing  elements.  When  all 
the  arguments  have  been  evaluated  and  returned  to  the  forms 
pushdown,  the  DCM  will  pop  the  function  into  the  current 
function  register.  If  the  function  is  a  primitive,  it  is 
decoded  by  the  DCM  and  applied  to  the  arguments.  If  the 
function  is  a  lambda  expression,  the  DCM  creates  a  new 
association  list  in  memory  by  pairing  the  variables  of  the 
lambda  expression  with  the  evaluated  arguments  on  the 
pushdown.  The  DCM  then  inputs  to  the  program  register  the 
remainder  of  the  lambda  expression  which  is  a  form  defining 
the  function. 

If  the  form  is  a  conditional,  the  reserved  word  COND  is 
stored  on  the  function  pushdown.  The  list  address  for  the 
second  and  successive  predicate-expression  pairs,  the  list 
address  for  the  first  expression,  and  the  list  address  for 
the  first  predicate  are  stored  in  that  order  on  the  forms 
pushdown.  Those  three  forms  represent  the  predicate,  the 
conclusion,  and  the  alternative,  respectively,  for  a 
generalized  conditional  expression.  it  is  input  to  the 
processing  element  for  evaluation.  If  the  predicate  is  not 
a  constant,  If  the  predicate  evaluates  to  true,  the 
conclusion,  which  is  next  on  the  forms  pushdown,  is 
evaluated,  the  alternative  is  discarded,  and  the  COND  is 
popped  off  the  function  stack.  If  the  predicate  evaluates 
to   false,   the   COND   is   left   on   the  function  stack,  the 
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conclusion  is  discarded,  and  the  alternative  conditional 
expression  is  input  to  the  processing  element  for 
evaluation. 

When  the  form  input  to  a  processing  element  is  a 
variable,  the  DCM  uses  the  accompanying  association  list  to 
search  for  the  corresponding  constant  value. 
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VI.   ADDITIONAL  PARALLEL  PROCESSING  CONSIDERATIONS 


There  remain  several  areas  within  the  realm  of   parallel 

processing    of  recursive   functions   which   need   further 

research.   Three  of  these  areas  will  be   discussed   in   this 
section. 


A.   PARALLEL  PROCESSING  OF  CONDITIONAL  FORMS 


Parallel  processing  of  a  conditional  form  means  that 
evaluations  of  the  predicate,  conclusion,  and  alternative 
are  begun  in  parallel.  If  any  of  these  forms  are  themselves 
conditionals,  or  contain  conditionals,  then  they  too  are 
processed  in  parallel.  When  the  predicate  evaluates  to  true 
(or  false) ,  all  processing  generated  by  the  alternative  (or 
conclusion)  is  halted,  and  any  storage  allocated  for  the 
evaluation   of  the  alternative  (or  conclusion)  is  reclaimed. 

One  of  the  problems  with  parallel  processing  of 
conditional  forms  is  that  it  is  wasteful  of  memory.  It 
might  happen  that  parallel  processing  of  a  conditional  form 
would  exhaust  memory  before  completion,  whereas  normal 
processing  could  complete  within  available  memory.  Problems 
associated  with  limited  memory  sizes,  however,  can  be 
expected  to  lessen  as  advances  in  memory  technologies 
continue  to  push  cost  down  and  volume  up. 

Another  problem  with  parallel  processing  of  conditional 
forms  concerns  undefined  forms.  A  conditional  form  is 
considered  defined  if:   1)  the  predicate  is  defined;  and   2) 
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the  conclusion  is  defined  if  the  predicate  is  true,  or  the 
alternative  is  defined  if  the  predicate  is  false.  Hence,  a 
well-defined  conditional  form  may  have  either  an  undefined 
conclusion  or  an  undefined  alternative,  but  not  both.  A 
system  which  processes  conditional  forms  in  parallel  must  be 
prepared  to  deal  with  undefined  forms.  Some  undefined  forms 
are  recognizable  while  others  are  not.  For  example,  if  X  is 
an  atom,  then  CAR<X>  can  be  recognized  as  undefined. 
Analysis  of  the  halting  problem  has  shown  that  some 
undefined  forms  (e.g.,  some  which  recur  infinitely)  may  not 
be  recognizable. 

Assuming  that  a  parallel  processing  system  has 
sufficient  resources  (memory  and  processors) ,  it  may  still 
be  possible  to  process  conditional  forms  in  parallel.  For 
example,  assume  the  alternative  is  undefined.  As  soon  as 
the  predicate  evaluates  to  true,  processing  could  be  stopped 
on  the  alternative.  This  may  be  a  difficult  and 
time-consuming  task,  however,  since  the  alternative  process 
may  have  tied  up  an  intricate  net  of  processing  elements. 

Because  there  are  so  many  unanswered  guestions 
concerning  parallel  processing  of  conditional  forms, 
evalguote2  was  designed  to  graph  conditionals  in  the 
traditional  way. 


B.   THE  MEANING. OF  SPEED-OP  RATIOS 


In  the  dual  form  of  the  data  flow  graph  (the  one  where 
the  nodes  represent  data  elements  and  the  edges  represent 
primitive  operations) ,  the  speed-up  ratio  can  be  defined  as 
the  number  of  nodes  with  indegree  greater  than  zero  divided 
by  the  maximum  path  length.  This  definition  presupposes  an 
unweighted   graph   which  is  probably  not  true  for  any  actual 
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implementation.  For  example,  the  procedures  for  ADD  and  MOL 
in  the  Interpreter  are  much  more  complex  than  the  procedures 
for  CAR  and  CDR.  This  was  the  primary  reason  for  the 
Interpreter's  $A  toggle  which  causes  only  the  arithmetic 
primitives  to  be  graphed.  It  is  not  inconceivable  to 
imagine  a  parallel  machine  which  has  a  "smart,"  associative 
memory  that  performs  the  CAR  and  CDR  functions 
automatically,  thus  eliminating  them  from  the  data  flow 
graph  altogether. 

In  a  machine  where  each  instruction  (primitive)  requires 
several  timer  states  to  complete,  the  data  flow  through  the 
primitive  processes  can  be  described  by  a  weighted  graph. 
The  weight  assigned  to  each  primitive  represents  the  number 
of  timer  states  required  for  that  primitive.  There  is  still 
the  problem  of  coordinating  data  transfers  between 
processing  elements  which  implies  a  need  for 
synchronization.  Each  stage  in  the  parallel  execution  could 
be  timed  to  allow  for  the  longest  possible  instruction. 
This  would  be  analogous  to  the  unweighted  graph.  Or  each 
stage  could  be  timed  to  the  longest  instruction  in  the 
stage.  This  could  be  implemented  by  each  processing  element 
setting  a  ready  line  at  instruction  completion.  The 
processor  manager  would  begin  data  transfers  when  all  the 
ready  lines  were  set.  A  third  alternative  is  to  let  each 
processing  element  execute  sequentially  until  there  is  data 
to  be  transferred  (a  completed  rusult  or  arguments  to  be 
computed  in  parallel) ,  and  then  to  set  a  transfer  ready 
line.  The  processor  manager  would  continuously  monitor  the 
transfer  ready  lines.  When  a  line  goes  true,  the  processor 
manager  would  interrupt  the  destination  and  enable  the 
transfer . 


C.   THE  WIDTH  COMPUTATION 
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The  width  at  each  stage  of  a  data  flow  graph  has  been 
defined  rather  loosely  as  the  number  of  primitive  processes 
to  be  executed  at  each  stage.  More  precisely,  the  width  at 
stage  i  has  been  computed  as  the  number  of  distinct 
primitives  representing  step  i  in  separate  paths.  The 
significance  of  the  width  of  a  data  flow  graph  is  that  it 
represents  the  number  of  processors  required  at  each  stage 
for  a  program  execution  represented  by  that  data  flow  graph. 
But  what  if  the  required  number  of  processors  for  a  given 
stage  were  not  available?  Is  there  a  way  for  some  of  the 
processes  to  be  delayed  to  futura  stages  when  sufficient 
processors  are  available  and  yet  not  increase  the  number  of 
parallel  steps  required  for  the  entire  execution? 

Consider  once  more  the  data  flow  graph  of  Figure  4.  If 
only  three  processors  ware  available  at  stage  two,  it  might 
be  possible  to  delay  the  first  CAR  operation,  and  hence  the 
first  CONS  operation,  and  still  complete  the  execution  in 
seven  parallel  steps.  Delaying  the  first  CONS  operation  by 
one  stage  would  cause  the  width  of  the  graph  at  stage  4  to 
increase  from  4  to  5.  This  increase  could  be  avoided  by 
further  delaying  this  CONS  operation  one  or  two  more  stages. 

If  the  first  CDR  operation  at  stage  2  were  delayed,  it 
would  obviously  cause  an  increase  in  the  number  of  parallel 
stages  required  for  completion.  How  can  the  proper  process 
to  be  delayed  be  recognized?  This  would  apparently  require 
some  "look-ahead"  capability  not  included  in  the  parallel 
system  of  the  previous  section.  Without  "looking  ahead,"  it 
may  be  possible  to  adopt  a  strategy  which  causes  the  "right" 
processes  to  be  delayed  most  of  the  time.  For  example,  of 
the  four  processes  at  stage  2  in  Figure  4,  two  produce 
arguments  for  a  CONS  and  two  produce  arguments  for  the  next 
invocation  of  the  PAIRLIS  function.  The  two  CAR'S  and 
subsequent   CONS  represent  a  known  number  of  required  sxages 
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(2) ,  whereas  the   PAIRLIS   function   is   recursive   and   the 
number  of  stages  required  will  depend  on  the  data. 

Hence,   one   strategy   might   be   to    "tag"  recursive 

functions,   and   when  insufficient  processors  are  available, 

to  delay  non-recursive  functions  before   delaying  recursive 
functions. 

Another  strategy  that  might  be  used  to  execute  the 
program  in  a  minimum  number  of  stages  with  a  limited  number 
of  processors  requires  a  modification  to  the  method  of 
evaluation  used  by  evalquote2  (and  also  evalquote).  These 
universal  functions  evaluate  another  function  and  its 
arguments  by  first  evaluating  all  the  arguments  and  then 
applying  the  function.  There  are  cases  where  some  work  can 
be  done  in  applying  the  function  before  all  of  the  arguments 
are  evaluated.  The  PAIRLIS  function  of  Figure  4  again 
serves  as  an  example.  From  the  data  flow  graph  it  can  be 
seen  that  the  second  CDR  of  stage  2  (as  well  as  the  second 
CDR  of  stage  4)  could  be  delayed  one  stage  without  affecting 
the  total  number  of  stages  required.  To  do  this  would  mean 
commencing  the  second  (and  third)  invocations  of  PAIRLIS 
before  all  the  arguments  were  evaluated.  In  other  words,  as 
soon  as  the  first  argument  was  evaluated,  it  would  enable 
the  first  predicate,  which  only  requires  the  first  argument, 
to  be  executed. 

The  goal  of  the  two  strategies  mentioned  so  far  is  to 
allow  a  reduced  set  of  processors  to  still  perform  the 
program  execution  in  a  minimum  number  of  stages.  These  two 
strategies  as  well  as  the  goal  they  are  seeking  represent  an 
area  for  further  research  in  the  design  of  a  parallel 
processing  system. 
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VII.   SUMMARY  AND  CONCLUSIONS 


It  seems  appropriate,  in  summary,  to  abstract  from  the 
preceding  pages  some  organizational  principles  for  the 
construction  of  a  parallel  processing  system.  These 
principles  are.  inspired  in  part  by  the  principles  for 
recursive  machines  presented  in  Ref .  2.  The  three 
principles  presented  here  represent  the  essential  qualities 
of  a  system  designed  for  the  parallel  processing  of 
recursive  functions.   These  principles  are  as  follows. 

1.  Programming  language  operators  (functions)  are   defined 
recursively  in  terms  of  machine-level  operators. 

2.  Parallel   tasks    are    distributed    among    available 

processors   so    that,   at   any   time   during   program 

execution,  the  internal  machine   structure,   i.  e.   the 

relationships    between    processors,    represents   the 

structure  of  the  executing  program. 
V 

3.  Processors  share  a  common  main  memory  in  which  the  data 

is  stored  associatively . 

The  first  principle  is  quite  similar  to  the  first 
principle  for  recursive  computer  organization  discussed  in 
Ref.  2.  By  defining  operators  of  the  programming  language 
as  recursive  functions  composed  of  previously  defined 
functions  which  are  ultimately  defined  in  terms  of 
machine-level  functions,  there  are  no  limits  to  the  language 
levels  possible.  And  yet,  no  matter  how  complex  the 
language  operators  become,  the  programmer  is  still 
programming  essentially  in  machine  language,  thus 
eliminating  the  need  for  intermediate  compilation. 
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With  such  a  language  structure,  a  user  could  define  a 
set  of  functions  which  would  represent  a  special  purpose 
programming  language  for  his  particular  problem  area,  rather 
than  having  to  adapt  to  a  general  purpose  "high-level" 
language . 

The  second  principle  implies  the  need  for  some  complex 
intercommunication  scheme  between  processors  working  on  the 
same  problem.  For  example,  should  each  processor  be 
connected  to  all  other  processors,  or  should  processors  be 
arranged  in  some  ideal  network  that  provides  "sufficient" 
intercommunication?  The  example  parallel  processing  system 
proposed  in  the  previous  section  suggests  a  single  transfer 
bus  controlled  by  a  processor  manager.  This  "conveyor" 
method  has  been  included  in  earlier  proposals  for  parallel 
systems  [ 12 ] . 

The  second  principle  also  implies  the  concept  of 
space-sharing  as  opposed  to  time-sharing.  A  user  program 
from  a  peripheral  terminal  would  be  allocated  available 
processors  until  completion  rather  than  being  paged  in  to  a 
single  processor  for  a  time-slice.  As  the  time-slice 
prevents  a  single  user  from  monopolizing  a  time-sharing 
system,  similar  controls  could  be  provided  in  a  parallel 
system  by  limiting  the  number  of  processing  elements  or 
processing  modules  availaole  to  a  single  user  program. 

The  third  principle  suggests  sharing  a  main  memory  among 
the  processing  elements.  This  would  eliminate  the  excessive 
data  transmissions  that  would  occur  if  each  processor  had 
its  own  memory.  Storing  the  data  associatively  implies  any 
scheme  in  which  the  data  is  arranged  to  facilitate  accessing 
successive  data  elements.  This  principle  has  been 
implemented  in  the  past  (and  in  the  Interpreter)  by  building 
linked-list  data  structures  in  linearly-organized   memories. 
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For  a  memory  which  stores  data  in  the  form  of 
S-expressions,  the  CAR  and  CDR  functions  applied  to  a  data 
element  represent  access  operations  to  the  successor 
elements  of  that  data  element.  These  two  functions  could  be 
performed  automatically  by  a  "smart"  memory,  and  the 
successor  elements  always  made  available  to  a  processing 
element  if  and  when  they  are  needed. 


The  concepts  of  parallel  computation  are  not  new.  The 
literature  is  rich  with  proposals  for  parallel  machines, 
summaries  of  such  proposals,  methods  for  recognizing 
parallelism,  and  other  related  subjects.  Parallel  machines 
of  the  past  have  been  costly  to  construct  and  have  reguired 
complex  software  support.  Meanwhile,  seguential  machines 
have  continued  to  achieve  faster  execution  speeds.  But  now, 
as  the  increases  in  execution  speeds  begin  to  level-off,  and 
LSI  technology  brings  the  cost  of  parallel  systems  within 
reason,  the  stage  is  set  for  a  new  and  different  generation 
of  computing  machines.  A  proposal  has  been  given  for  a 
parallel  processing  system  based  on  defining  algorithms  as 
recursive  functions.  Evalguote2  has  demonstrated  that  the 
structure  of  algorithms  defined  as  recursive  functions  makes 
possible  the  distinction  between  parallel  and  seguential 
tasks.  The  ideas  presented  in  this  thesis  represent  an 
attempt  to  show  that  a  parallel  system  based  on  simple, 
highly-structured  software  can  realize  the  speed-up  of 
parallel  computation  while  avoiding  the  burden  of  complex 
software . 
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APPENDIX  A 


SYNTAX 


The  non-terminal  symbols  are  in  lower  case  letters.  The 
terminal  symbols  include  <,  >,  ;,  &,  S,  -»,  .  ,  ",  (,  ),  upper 
case  letters,  and  decimal  digits.  '::='  means  "is  defined 
as."  '|*  means  "or."  '...'  means  any  number  of  the 
specified   element. 

program  ::=   f unction<s-exp ;. . .  ;s-exp> 

function  ::=   identifier    | 

&<<variable ; . . . ; variable>;    form>    | 
aKidentif ier ;    function> 

form  ::=  constant    |    variable    | 

f unction<argument ; . . . ; argument>    | 
<form   -■   f  orm  ; .  . .  ;  f  orm   ->   form) 

argument  ::=    form    |    function 

variable  ::=   identifier 

constant  ::=    "atom"    J     (s-exp.s-exp)     ] 

(s-exp  . .  .  s-exp) 

s-exp  ::=   atom    |     (s-exp.s-exp)     | 

(s-exp . . .s-exp) 

atom  ::=    identifier    |     number 

identifier      ::=   letter    |    identifier   letter    | 

identifier    digit 
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number 
letter 


digit 


=   digit 

=  A  |  B 
J  j  K 
S     |    T 

=    0     |     1 


number   digit 

C|D|E|F|G|H|I| 
L|M|N|0|P|Q|R| 
0     |     V     l     W     |     X     |     Y     |     Z 

2|3|4|5|6|7|8]9 
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APPENDIX    B 


EVALQU0TE2 


1  *    EVALQU0TE2 

2 

3  &<<FN;    ARGS>; 

k 

5  'SUB-FUNCTION    NAMES' 

6  &<<APPLY2;    EVAL2;    EVCON2;    GRAPUCON;    EVLIS2; 

7  COMPOSE;    COMBINE;    APPEND;    SUM; 

8  PAIRLIS;    ASSOC;    NULL; 

9  CAAR;    CADR;    CDAR;    CADOR;    CADAR>; 
10 

11  'DEFINITION   OF    EVALOUOTE' 

12  APPLY2<FN;    CONS<ARGS;     ()>;    "Hll.">> 
13 

U  'SUB-FUNCTION   DEFINITIONS' 
15 

16  <'APPLY2'    &<<FN;    X;    A>; 

17  <ATOM<FN>  "* 

18  <EQ<FN;  "CAR">  " 

19  CONS<CAAR<CAR<X>>;  APPEND<CDR<X>;  (1)>>; 

20  EQ<FN;  "CDR">  " 

21  CONS<CDAR<CAR<X>>;  APPEND<CDR<X>;  (1)>>; 

22  EQ<FN;  "CONS">  " 

23  CONS<CONS<CAAR<X>;  CADAR<X>>; 
2h  APPEND<CDR<X>;  (1)>>; 

25  EQ<FN;  "ATOM">  " 

26  CONS<ATOM<CAAR<X>>;  APPEND<CDR<X>;  (1)>>; 

27  EQ<FN;  "EQ">  - 

28  CONS<EQ<CAAR<X>;  CADAR<X>>; 

29  APPEMD<CDR<X>;  (1)>>; 

30  "T"  "    APPLY2<CAR<EVAL2<FM;A>>;  X;  A>>; 

31  EQ<CAR<FN>;  "LAMBDA")  " 

32  COMPOSE<EVAL2<CADDR<FN>; 

33  PAIRLIS<CADR<FN>;    CAR<X>;    A>>;    CDR<X>>; 

34  E0<CAR<FN>;    "l.ABEL">    " 

35  APPLY2<CADDR<FN>;    X; 

36  CONS<CONS<CAPR<FN>;    CADDR<FN>>;    A>>>>; 
37 

38  'LVAL2'    &<<E;    A>; 

39  <ATOM<E>  "  CONS<CDR<ASSOC<E;  A>>;  "HIL">; 
140  ATOM<CAR<E>>  " 

l»l  <EQ<CAR<E>;  "OUOTE">  "  CONS<CADR<E>;  "HI  L">; 

42  EQ<CAR<E>;  "COND">  "    EVC0N2<CDR<E>;  A>; 

43  "T""1  APPLY2<CAR<E>;  EVLI  S2<CDR<E> ;  A>;  A>>; 

44  "T"  "  APPLY2<CAR<E>;  FVL I S2<CDR<F> ;  A>;  A>>>; 
45 

1*6  'EVCON2'  &<<C;  A>;  fiRAPHCON<EVAL2  <CAAR<C>;  A>;  C;  A>>; 
i»7 

48  'GRAPUCON'  &<<P;  C;  A>; 

49  <CAR<P>  -  COMPOSE<FVAL2<CADAR<C>;  A>;  CDR<P>>; 

50  "T"  "  COMPOSE<EVCON2<CDR<C>;  A>;  CDR<P>>>>; 
51 

52  'EVLIS2'  &<<L;  A>; 

53  <NULL<L>  -  "NIL"; 

54  "T"  "  COMBINE<EVAL2<CAR<L>;  A>;  EVL I S2<CDR<L>;  A>>>>; 
55 

56  'COMPOSE'  &<<X;  Y>;  CONS<CAR<X>;  APPEND<Y;  CDR<X>>>>; 
57 

58  'COMBINE'   &<<U;  V>; 

59  <NULL<V>  "  CONS<CONS<CAR<U>;  "fllL">;  CDR<U>>; 

60  "T"  -  CONS<CONS<CAR<U>;  CAR<V>>; 

61  SUM<CI)R<U>;  CDR<V>>>>>; 


59 


63  'APPEND'  &<<X;  Y>;  <NULL<X>  "  Y; 

6t»  "T"  -  CONS<CAR<X>;  APPENP<CPR<X>;  Y>>>>; 

65 

66  'SUM'  &<<X;  Y>; 

67  <NULL<X>   "    Y;    flULL<Y>   "    X; 

68  "T"   -    CONS<APP<CAR<X>;    CAR<Y>>; 

69  SUM<CPR<X>;    CPP.<Y>>>>>; 
70 

71  'PAIRLIS'    &<<X;    Y;    A>; 

72  <NULL<X>   "   A;    "T"   "■   CONS<CONS<CAR<X>;    CAR<Y>>; 

73  PAIRLIS<CPR<X>;    CDR<Y>;    A>>>>; 
7«» 

75  'ASSOC'    &<<X;    A>; 

76  <EQ<CAAR<A>;  X>  "*  CAR<A>;  "T"  "*  ASSOC<X;  CPR<A>>>>; 
77 

78         'MULL'  &<<L>;  EQ<L;  "NIL">>; 

79 

80  'CAAR'  &<<L>;  CAR<CAR<L>>>; 

81 

82  'CADR'    &<<L>;    CAR<COR<L>>>; 

83 

8l»  'CPAR'    &<<L>;    CPR<CAR<L>>>; 

85 

86  'CADDR'    &<<L>;    CADR<C0R<L>>>; 

87 

88  'CAPAR'    &<<L>;    CAR<CPAR<L>>>>> 

89 

90 

91      *  SAMPLE  ARGUMENTS  FOR  EVALOUOTE 

92 

93  <(LABEL    PAIRLIS    (LAMBPA    (X    Y   A) 

91»  (COND    ((EQ    X    (QUOTE    NIL))    A) 

95  ((QUOTE    T)    (CONS    (CONS    (CAR    X)    (CAR    Y)) 

96  (.PAIRLIS    (CPR    X)    (CPR    Y)    A)))))); 

97  ((A   B)    (1    2)    ((C.3)))> 

98  ## 


******    EVALUATION    BEGINS    ****** 


RESULT    IS: 

(((A.l)    (B.2)    (C.3))    1    U    2    i»    2    1    1) 


FREE    STORAGE    REMAINING:  2  768 

039.08    SECONPS    IN    EXECUTION 
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APPENDIX  C 


TRANSLATION  ROLES 


Rules  for  translating  programs: 

1.  A  function  is  translated  by  the  rules  for  translating 
functions. 

2.  <s-esp ; . . . ;s-exp>  translates  to  (s-exp. . . s-exp) . 

Rules  for  translating  functions: 

3.  S<<X; . . . ; XN>;  form>  translates  to 

(LAMBDA  (X1...XN)  form*)  where  form*  is  the  translation 
of  a  form. 

4.  3<FN;  function>  translates  to  (LA3EL  FN  function*) 
where  function*  is  the  translation  of  a  function. 

5.  If  a  function  is  an  argument,  then  it  translates  to 
(QUOTE  function*) . 

Rules  for  translating  forms: 

6.  "X"  translates  to  (QUOTE  X) . 

7.  If  the  form  is  a  parenthesized  s-expression,  then  it 
translates  tc  (QUOTE  (s-exp)). 

8.  f unction<argu ment ; .  .  . ;argument>  translates  to 
(function*  ar gum ent* ...  argument*)  ,      where  argument*  is 
the  translation  of  an  argument  which  can  be  a  form  or  a 
function. 

9.  <form  -i  form;...  ;form  -•  form>  translates  to 
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(COND     (form*    form*) 


(form*    form*)  ) 
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APPENDIX  D 
SAMPLE  PROGRAMS 


Program   Jj. 


$$ 

$T 

1  IKPAIRLIS;    &<<X;Y;A>; 

2  <EQ<X;"NIL">    -   A; 

3  "T"    "    CONS<CONS<CAR<X>;CAR<Y>>; 

U  PAIRLIS<CDR<X>;CDR<Y>;A>>>>> 

5 

6  <(A  B);(l  2);((C.3))> 

7  f 

******  TRANSLATION  FOLLOWS  ****** 

(LABEL  PAIRLIS  (LAMBDA  (X  Y  A)  ( COtJO  ( ( EQ  X  (OUOTE  MIL))  A)  ((OUOTE  T)  ( 

CONS  (CONS  (CAR  X)  (CAR  Y))  (PAIRLIS  ( CDR  X)  ( CDR  Y)  A)))))) 

((A  B)  (1  2)  ((C.3))) 


******  EVALUATION  BEGINS  ****** 

RESULT  IS: 

(((A.l)  (B.2)  (C.3))  1  U  2  i»  2  1  1) 


PROCESSORS  REOUIRED  FOR  OPTIMUM  PARALLELING.  k 

EXECUTION  STEPS  (PARALLEL) 7 

EXECUTION  STEPS  (SEQUENTIAL) 15 

SPEED-UP  RATIO  (  SEQUENT  I  AL/ PARALLEL) 2.1U2857 

FREE  STORAGE  REMAINING:  15925 

002.96  SECONDS  IN  EXECUTION 
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Program  2_. 


1  *       THIS  FUNCTION  PERFORMS  MATRIX  MULTIPLICATION. 

2  *   -    DOT  PRODUCTS  ARE  COMPUTED  BY  PERFORMING  SEQUENTIAL 

3  *       ADDITIONS  OF  INTEGER  PRODUCTS. 
4 

5  &<<A;B>; 

6  &<<MATMUL;    ROW;    DOT;    NULL>; 
7 

8  MATMUL<A;B>> 

9 

10  <'MATMUL'    &<<X;Y>;    <NULL<X>    "•   "NIL"; 

11  "T"    "   CONS<ROW<CAR<X>;    Y>;    MATMUI.<CDR<X>;    Y>>>>; 
12 

13  'ROW'    &<<R;C>;    <NULL<C>    ""   "NIL"; 

14  "T"  "*  CONS<DOT<R;  CAR<C>>;  ROW<R;  CDR<C>>>>>; 
15 

16  'DOT1  &<<U;V>;  <NULL<U>  "■  0; 

17  "T"  "  ADD<MUL<CAR<U>;  CAR<V>>;  DOT<CDR<U>;  CDP.<V>>>>>; 
18 

19      'NULL'  &<<L>;  EQ<L;  "MIL">>>> 
20 

21  *SAMPLE    INPUTS 

22  <((1111)    (1111)    (1111)    (1111)); 

23  ((1    1    1    1)    (1    1    1    1)    (1    1    1    1)    (1    1    1    1))> 

24  t 

******    EVALUATION    BEGINS    ****** 

RESULT    IS: 

(((l*    4    4    4)    (i*    4    4    4)    (4    it    it    4)    (14    4    4    4)  )    1    2    2    4    4    10    8    20    14    32    20    46 

2G    53    29    53    29    45    25    31    19    19    13    10    8    5    5    3    3    2    2    1    1    1    1    1    1) 


PROCESSORS    REQUIRED    FOR   OPTIMUM    PARALLELING.  53 

EXECUTION    STEPS    (PARALLEL) 37 

EXECUTION    STEPS    (SEQUENTIAL) 549 

SPEED-OP   RATIO    (SEQUENTIAL/PARALLEL) 14.83784 

FREE    STORAGE    REMAINING:  11273 

019.56    SECONDS     IN    EXECUTION 


64 


Program  3^ 


$$ 

$A  GRAPHING  ARITHMETIC  OPERATIONS  ONLY 

1  *       THIS  FUNCTION  PERFORMS  MATRIX  MULTIPLICATION. 

2  *       DOT  PRODUCTS  A!  E  COMPUTED  BY  PERFORMING  SEQUENTIAL 

3  *       ADDITIONS  OF  INTEGER  PRODUCTS. 
i» 

U  SUPPRESS  FUNCTION  LISTING 

$L  TURN  ON  LISTING  FOR  ARGUMENTS 

21  *SAMPLE  INPUTS 

22  <((1  1  1  1)  (1  1  1  1)  (1  1  1  1)  (1  1  1  1)); 

23  ((1  1  1  1)  (1  1  1  1)  (1  1  1  1)  (1  1  1  1))> 
2i»  * 


******  EVALUATION  BEGINS  ****** 

RESULT  I S: 

(((t,  (|  l»  k)    (1»  k    k    k)    (l»  l»  k    k)    U  h    k    U))  6<»  16  16  16  16) 


PROCESSORS  REQUIRED  FOR  OPTIMUM  PARALLELING.  64 

EXECUTION  STEPS  (PARALLEL) 5 

EXECUTION  STEPS  (SEQUENTIAL) 128 

SPEED-UP  RATIO  ( SEQUENT  I AL/ PARALLEL) 25.59999 

FREE  STORAGE  REMAINING:  11369 

016.35  SECONDS  IN  EXECUTION 
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Program    4_. 


1  *  THIS    FUNCTION    PERFORMS   MATRIX   MULTIPLICATION. 

2  *  DOT    PRODUCTS    ARE    COMPUTED    BY    PERFORMING    PARALLEL 

3  *  ADDITIONS   OF    PAIRS    OF    INTEGER    PRODUCTS. 
k 

5  &<<A;B>; 

6  ft<<MATMUL;  ROW;  DOT;  SUM;  REDUCE;  VMUL;  CADR;  CDDR;  NULL>; 

7  ' 

8  MATMUL<A;R>> 
9 

10  <'MATMUL'    &<<X;Y>;    <NULL<X>   **    "NIL"; 

11  "T"   "    CONS<ROV/<CAR<X>;    Y>;    MATMUL<CDR<X>;    Y>>>>; 
12 

13  'ROW'    A<<R;C>;    <NULL<C>   -    "NIL"; 

1I»  "T"  ""  CONS<DOT<R;  CAR<C>>;  ROV/<R;  CDR<C>>>>>; 

15 

16      'DOT'  &<<U;V>;  SUM<VMUL<U; V>>>; 

17 

18  'SUM'  &<<A>;  <NULL<CDDR<A>>  -  ADD<CAR<A>;  CADP.<A>>; 

19  "T"  ""  SUM<REDUCE<A>>>>; 
20 

21  'RFDUCE*  ft<<A>;  <NULL<A>  "  "NIL";  HULL<CDR<A>>  "    A; 

22  "T"  -    CONS<ADD<CAR<A>;  CADR<A>>;  REDUCE<CDDR<A> >>>>; 
23 

2k  'VMUL*  &<<U;V>;  <NULI.<V>  -  "MIL"; 

25  "T"    "    C0flS<MUL<CAR<U>;    CAR<V>>;    VMUL<CDR<U>;    CDR<V>>>>>; 

26 

27  'CADR'    &<<L>;    CAR<CDR<L>>>; 

28 

29      'CDDR*  &<<L>;  CDR<CDR<L>>>; 

30 

31      'HULL'  &<<L>;  EQ<L;  "NIL">>>> 

32 

33      *SAMPLE  INPUTS 

3k  <((1111)  (1111)  (llll)  (1111)); 

35  ((1  1  1  1)  (1  1  1  1)  (1  1  1  1)  (1  1  1  1))> 

36  * 

******    EVALUATION    BEGINS    ***•*• 

RESULT    IS: 

(((i»    1»   k   k)    («t   k   k   k)    (k   k   k   k)    (It   k   k   It))    1   2   2   li   k   10   8   20   Ik   32    20   l| 

26    53    29    53    29    kG    26    Ik    22    25    19    21    18    21    18    2k    21    28    25    28    27    26    29    2 

28    20    25    17    22    Ik    18    10    13    7    9    5    6    3    3    2    2    1    1    1    11    1) 


PROCESSORS    REQUIRED    FOR    OPTIMUM    PARALLELING.  53 

EXECUTION    STEPS    (PARALLEL) 59 

EXECUTION    STEPS    (SEQUENTIAL) 10U5 

SPEED-UP   RATIO    (SEQUENTIAL/PARALLEL) 17.71185 

FREE    STORAGE    REMAINING:  695U 

038.90    SECONDS    IN    EXECUTION 
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Program  5^ 


$$ 

$A  GRAPHING  ARITHMETIC  OPERATIONS  ONLY 
1 

2  *       THIS  FUNCTION  PERFORMS  MATRIX  MULTIPLICATION. 

3  *      DOT  PRODUCTS  ART  COMPUTED  P.Y  PERFORMING  PARAI.I.EI 
d  *       ADDITIONS  OF  PAIRS  OF  I NTEOER  PRODUCTS. 

5 

$L  SUPPRESS  FUNCTION  LISTING 

$L  LIST  ARGUMENTS 

3U  *SAMPLE  INPUTS 

35  <((1111)  (1111)  (1111)  (1111)); 

36  ((1  1  1  1)  (1  1  1  1)  (1  1  1  1)  (1  1  1  1))> 

37  # 


******    EVALUATION    BEGINS    ****** 

RESULT    IS: 

(((!»    t|    d    l»)    (U    U    k    (|)    (!♦    I»    i»    l»)    (t,    l»    u    U))    6«*    32    16) 


PROCESSORS  REQUIRED  FOR  OPTIMUM  PARALLEL  I NC.  6U 

EXECUTION  STEPS  (PARALLEL) 3 

EXECUTION  STEPS  (SEQUENTIAL) 112 

SPEED-UP  RATIO  (SEQUENTIAL/PARALLEL) 37.33333 

FREE  STORAGE  REMAINING:  7122 

031.96  SECONDS  III  EXECUTION 
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Program  6^ 


<AT0M<P> 

m  P; 

Il-rll     -i 

&<<P1 

;    OP;    P2>; 

<FQ<OP;    " 

+  »>        - 

<EQ<P1 

;    "0">    - 

P2; 

EQ<P2; 

''o">  -1 

PI; 

Il-rll      -> 

C0f!S3<Pl 

;     "+" 

"V 

<EQ<P1 

;    "0">    " 

"0"; 

EQ<P2; 

"0">   - 

"0"; 

EQ<P1; 

"1">    " 

P2; 

EQ<P2; 

"1">    - 

PI; 

llTll       -• 

C0NS3<P1 

•       Htll 

/ 

> 

1  *       DIFFERENTIATE  A  POLYNOMIAL  WITH  RESPECT  TO 

2  *       ONE  OF  ITS  VARIABLES.   SIMPLIFY  THE  RESULT. 
3 

k  &<<P;X>;   'SIMPLIFY  DERIVATIVE  OF  "P"  W.R.T.  "X"' 

5 

C         &<<CADR;  CADDR;  CONS3>;   'DEFINE  PRIMITIVES  ON  A-LIST' 

7 

8  @<SIMP;  &<<P>;   'SIMPLIFY  FUNCTION' 

9 
10 
11 
12 
13 
11* 
15 
1C 

17  "T"  "  C0NS3<P1;  "+";  P2> 

1  li 
19 
20 
21 
22 
23 

2i<  "T"  -  C0NS3<P1;  "*";  P2> 

25 

26  > 

27  > 

28  <SIMP<CAR<P>>;  CADR<P>;  SI MP<CADDR<P>>> 

29  > 

30  >> 
31 

32  <   'ARGUMENT  FOR  SIMP' 

33  @<DIFF;  &<<P;  X>;   'DERIVATIVE  FUNCTION' 
3»* 

35  <ATOM<P>  ""  <EQ<P;  X>  "*  "1";  "T"  -  "0">; 

36  "T"  -  &<<P1;  OP;  P2>;  'MORE  THAN  ONE  TERM' 
37 

38  <EQ<OP;  "♦">  " 

39  C0NS3<DIFF<P1;  X>;  *'  +  ";  DIFF<P2;  X>>; 

1*0  "T"  ""  CONS3<CONS3<DIFF<Pl;  X>;  "*";  P2>;  "  +  ", 

1*1  CONS3<DIFF<P2;  X>;  "*";  Pl>>>> 

1*2 

1*3  <CAR<P>;  CADR<P>;  CADDR<P>>>>> 

1*1* 

1*5  <P;  X>   ' ARGUMENTS  FOR  DIFF' 

**6  >   'END  OF  SIMP  ARGUMENT' 

1*7         > 

1*8 

l»9  <       'PRIMITI  VE    DEFINITIONS' 

50  &<<X>;  CAR<CDR<X>>>; 

51  &<<X>;  CADR<CDR<X>>>; 

52  &<<X;  Y;  Z>;  CONS<X;  CONS<Y;  CONS<Z;  "Nl  L">>» 

53  >   'END  PRIMITIVE  DEFINITIONS' 
51*      >   'END.' 

55 

56  *  SAMPLE    ARGUMENTS   WITH    SYMMETRICALLY   ORGANIZFD 

57  »  FOURTH-DEGREE    BINOMIAL. 
58 

59  <(((X    +    Y)    *    (X    +    Y))    *    ((X    *    Y)    *    (X    ♦    Y)));    X> 

60  # 
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******  EVALUATION  BEGINS  ****** 

RESULT  IS: 
(((((X  +  Y)  +  (X  +  Y))  *  ((X  ♦  Y)  *  (X  +  Y)))  +  (((X  +  Y)  +  (X  +  Y))  *  ( 

(X   +    Y)    *    (X   ♦    Y))))    1321126l»221»12    8I»li88i»l»fcl|«»l»22 

2  2  2  2  1  1  1  1  3  3  k    U  7  7  11  11  18  18  23  23  20  20  Ik    13  11  9  8  7  6  6  G 

6  5  5'k   k   3  3  2  2  2  2  2  2  2  2  2  2  1  1  1  1  1  1  1  1) 


PROCESSORS  REQUIRED  FOR  OPTIMUM  PARALLELING.  23 

EXECUTION  STEPS  (PARALLEL) 81 

EXECUTION  STEPS  (SEQUENTIAL) H22 

SPEED-UP  RATIO  (SEQUENTIAL/PARALLEL) 5.209876 

FREE  STORAGE  REMAINING:  1173P 

016. 9G  SECONDS  IN  EXECUTION 
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Program  Ij. 


$$ 

1  *       DIFFERENTIATE  A  POLYNOMIAL  WITH  RESPECT  TO 

2  *       ONE  OF  ITS  VARIABLES.   SIMPLIFY  THE  RESULT. 
3 

$L  SUPRESS  FUNCTION  LISTING 

$L  TURN  ON  LISTING  FOR  ARGUMENTS 

56  *  SAMPLE  ARGUMENTS  WITH  ASYMMETRICALLY  ORGANIZED 

57  *  FOURTH-DEGREE  BINOMIAL. 
58 

59  <((X  +  Y)  *  ((X  +  Y)  *  ((X  +  Y)  *  (X  +  Y))));  X> 

60  * 

******  EVALUATION  BEGINS  ****** 

RESULT  IS: 

((((X  +  Y)  *  ((X  +  Y)  *  (X  +  Y)))  +  ((((X  +  Y)  *  (X  +  Y )  )  +  (((X  +  Y)  ♦ 

(X  +  Y))  *  (X  +  Y)))  *  (X  ♦  Y)))  1321126U22ii853359633 

S  5  3  2  2  2  2  2  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  3  3  li  U  7  8  8  12  12 

13  12  1U  1U  18  18  17  1G  13  13  11  11  8  7  5  U  i*  14  U  U  i*  U  3  3  3  3  3  3  2  2 

2222111111111111111111111111) 


PROCESSORS  REQUIRED  FOR  OPTIMUM  PARALLELING.  18 

EXECUTION  STEPS  (PARALLEL) 112 

EXECUTION  STEPS  (SEQUENTIAL) U52 

SPEED-UP  RATIO  ( SEQUENT  I AL/ PARALLEL) U.03571U 

FREE  STORAGE  REMAINING:  11332 

017.76  SECONDS  IN  EXECUTION 
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Program    8_. 


1  *    EVAt.QUOTE 

2 

3  &<<FN;    ARfiS>; 

k 

5  'SUB-FUNCTION    NAMES' 

6  &<<APPLY;    EVAL;    EVCON;    EVLIS;    PAIRLIS;    ASSOC; 

7  NULL;    CAAR;    CADR;    CPAR;    CAPPR;    CAPAR>; 
8 

9  'DEFINITION   OF    EVALQUOTE* 

10  APPLY<FN;    ARCS;    "NIL">> 
11 

12  'SUB-FUNCTION   DEFINITIONS' 
13 

Hi  <'APPLY'    &<<FN;    X;    A>; 

15  <ATOM<FN>  " 

16  <EQ<FN;  "CAR">  "  CAAR<X>; 

17  EQ<FN;  "CDR">  -    CDAR<X>; 

18  EQ<FN;  "CONS">  -  CONS<CAR<X>;  CAPR<X>>; 

19  EQ<FN;  "ATOM">  "'  ATOM<CAR<X>>; 

20  EQ<FN;  "EO.">  ■"  EQ<CAR<X>;  CAPR<X>>; 

21  "T"  ""  APPLY<EVAL<FN;A>;  X;  A>>; 

22  EQ<CAR<FN>;  "I.AMBDA">  "* 

23  EVAL<CAPPR<FN>;  PAI RLI S<CAPR<FN>;  X;  A>>; 
2k  EQ<CAR<FN>;  "LABEL">  "* 

25  APPLY<CAPPR<FN>;  X; 

26  CONS<CONS<CAPR<FN>;  CAPPP<Ff!>>;  A>>>>; 
27 

28  'EVAL'  &<<E;  A>; 

29  <ATOM<E>  -  CPR<ASSOC<F;  A>>; 

30  ATOM<CAR<E>>  " 

31  <EQ<CAR<E>;  "nUOTE">  "  CAPR<F>; 

32  EQ<CAR<E>;  "COND">  "*  EVCON<CPR<E>;  A>; 

33  "T""  APPLY<CAR<F>;  EVLI S<CPR<F>;  A>;  A>>; 
3U  "T"  "  APPLY<CAR<E>;  EVLI S<CPR<E>;  A>;  A>>>; 

35 

36  'EVCON'  &<<C;  A>;  <NULL<C>  -  "UNDEFINED"; 

37  EVAL<CAAR<C>;  A>  -  EVAL<CAPAR<C>;  A>; 

38  "T"  ""  EVCON<CPR<C>;  A>>>; 
39 

i»0  'EVLIS'  .&<<L;  A>; 

1*1  <NULL<L>  "*  "NIL"; 

l»2  "T"  "*  CONS<EVAL<CAR<L>;  A>;  EVL I  S<CDR<L>;  A>>>>; 

i»3 

kit  'PAIRLIS'  &<<X;  Y;  A>; 

1*5  <NULL<X>  -  A;  "T"  ""  CONS<CPNS<CAR<X>;  CAR<Y>>; 

U6  PAIRLIS<CPR<X>;  CPR<Y>;  A>>>>; 

1*7 

U8  'ASSOC'  &<<X;  A>; 

h9  <EQ<CAAR<A>;  X>  -  CAR<A>;  "T"  "*  ASSPC<X;  CPR<A>>>>; 

50 

51  'NULL'  ft<<L>;  EO<L;  "Hll.">>; 

52 

53  'CAAR*  A<<L>;  CAR<CAR<L> >>  ; 

5U 

55  'CAPR'  &<<L>;  CAR<rPR<l  >>>  ; 

56 

57  'CPAR'  &<<L>;  CDP.<CAR<L>>  >  ; 

58 

59  'CAPPR'  ft<<L>;  CAPR<CPR<L>>>; 

60 

61  'CADAR'  ft<<L>;  CAR<CPAR<L>>>>> 
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05 
0U 
65 
66 
67 
68 
69 
70 
71 


*   SAMPLE   ARGUMENTS    FOR    EVALQUOTE 

<(LABEL    PAIRLIS    (LAMBDA    (X   Y   A) 
(COriP    ((EQ   X    (QUOTE    NIL))    A) 
((QUOTE    T)    (TONS    (COMS    (CAR    X)    (CAR    Y)) 

(PAIRLIS    (CPR    X)    (CDR    Y)    A)))))); 
((A    P.)    (1    2)    ((C.3)))> 


******  EVALUATION  BEGINS  ****** 


RESULT  IS: 

(((A.l)  (B.2)  (C.3))  1  1 


111111 
12  1111 
2  l»  3  5  5  5 
2  2  1111 
111111 
1112  11 
2  3  2  I»  3  5 
2  5  2  2  11 
1112  2  2 
2  3  5-222 
111111 


11111 
11111 
6  6  6  5  8 
11111 
11111 
11111 
5  5  6  6  6 
11111. 
2  k  2  l»  2 
11111 
2  1111 


1    1  1 

12  2 

6    5  5 
1) 


1222i»2U2U2111 
5222111111111 
1112122552222 
5555222222222 
111222U2U2U21 


2 

3 

5  : 

!    2 

2 

1 

1 

1 

1 

1 

1 

1 

1 

1 

l  ] 

L    1 

2 

1 

2 

2 

3 

3 

2 

2 

5 

5 

5  : 

5    3 

3 

2 

2 

2 

2 

2 

2 

2 

1 

1 

l  j 

L    1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

l  ] 

I    1 

1 

1 

1 

1 

1 

1 

2 

1 

1 

1 

l  i 

L    1 

1 

1 

1 

1 

1 

1 

1 

1 

PROCESSORS    REQUIRED    FOR    OPTIMUM    PARALLEL  I  NO.  8 

EXECUTION   STEPS    (PARALLEL) i»05 

EXECUTION   STEPS    (SEQUENTIAL) 75«i 

SPEED-UP   RATIO    (SEQUENTIAL/PARALLEL) 1.861728 

FREE    STORAGE    REMAINING:  83U9 

052.12    SECONDS    IN    EXECUTION 
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0000 

0001 

0001 

0001 

0001 

0001 

0001 

0001 

0001 

0001 

0001 

0001 

0001 

0001 

0001 

0001 

0001 

0001 

00  01 

0001 

0001 

00  01 

00  01 

0001 

0001 

0001 

0001 

0001 

0001 

0001 

0001 

0001 

0001 

00  01 

0001 

00  01 

0001 

0001 

0001 

0001 

0001 

0001 

0001 

0001 

0001 

00  01 

0001 

00  01 

0001 

0001 

0001 

0001 

00  01 

0001 

0001 

0001 

0002 

0003 

ooou 

0005 

0005 

0005 

0005 

0005 

0006 

0007 

0003 

00  08 

0009 

0009 

0010 

0011 

0011 

00  12 

0012 

00  13 

0014 

0014 

00  15 

0015 

00  16 

0016 

0017 

3017 

0017 

0013 

APPENDIX    E 


AL30L-H    INTERPRETER 

1_  BEGIN    COMMENT  **************************  ************  ********* 

*  * 

*  * 
_-                 *  * 

*  * 

*  E7ALQUOTE2  * 
--                 *  * 

*  * 

*  * 

*  * 

*  E7ALQOOTE2    IS    AN    ALGOL-W    PROGRAM    DESIGNED   TO  * 

*  TRANSLATE    AND    INTERPRET    INPUT    PROGRAMS    WRITTEN  * 

*  IN    THE    META-LANGUAGE    0?    PURE    LISP.        DURING  * 

*  INTERPRETATION,    EVALQUOTS2    ANALYSES    THE    DATA    FLOW  * 

*  THROUGH    THE    LISP    PROGRAM    AND    GENERATES    A    VECTOR  * 

*  DESCRIBING    THE    DATA    FLOW    GRAPH.  * 
--                 *  * 

*  * 

*  ORGANIZATION  * 

—  *  * 

*  THE    PROGRAM    HAS    3E-SN    LOGICALLY    DI7IDED    INTO    ELEVEN  * 

*  SECTIONS.  * 

__                 *  * 

*  * 

*  I    :             GLOBAL    DECLARATIONS  * 

*  * 

*  II    :         PRIMITIVES  * 

*  * 

*  III     :       STORAGE    MANAGEMENT  * 

*  * 

*  17    :          INPUT    SUPPORT  * 

*  * 

*  V    :             PROPERTY    LIST    ACCESS  * 

*  * 

*  VI     :          INITIALIZATION  * 

*  * 

*  VII    :       TRANSLATION  * 

*  * 

*  VIII:       INTERPRETATION  * 

*  * 

*  IX    :          ERROR    HANDLING  * 

*  * 

*  X    :            OUTPUT  * 

*  * 

*  XI     :          MONITOR  * 

*  * 

-_  *  **  **********  ****  **  **********  *  *  *  *  **  *  *  j>5J?  Ji*»»»a  t  u  *******  • 

--  COMM ENT****************  ********************  ********  ********* 

*  '  * 

*  SECTION    I:       GLOBAL    DECLARATIONS  * 

*  * 

—  -  *************  ****  ******************  **  *****  ********  *********  . 

INTEGER    FLH:  COMMENT    7REE    LIST    HEADER; 

INTEGER    LENGTH;  COMMENT    THE    LENGTH    0?    THE    CURRENT    TOKEN; 

INTEGER    IBP;  COMMENT    THE    INPUT    3U7FER    POINTER; 

INTEGER    LINS_NC;  COMMENT    THE    INPUT    LINE    NUMBER; 

COMMENT       THE    FOLLOWING    ARE    THE    LOCATIONS    OF    THE    ATOM    HEADER 
CELLS    OF    THE    RESERVED    WORDS    OF   THE    LISP    LANGUAGE; 

INTEGER    LAMBDA.    LA3EL,    COND.     QUOTE; 

INTEGER    ICAR,    ICDR,     ICONS,     IEQ,    IATOM,     IADD,     IMUL; 

INTEGER    PNAME,    T,     F,     NIL; 

INTEGER    CONSTANT,    IDENTIFIER,     S?ZC1\L,     NUMS; 

COMMENT    TOKEN    CATEGORIES; 
INTEGER    TYPE;       COMMENT    TOKEN    CATEGORY    OF    CURRENT    TOKEN; 
INTEGER    HEADER;       COMMENT    PT3    TO    ATOM    HEADER    CELL    OF    TOK ; 

STRING  (1)     C,     NC; 

COMMENT    CURRENT    AND    NEXT    CHARACTER    IN    INPUT    STREAM; 
STRING  (30)     3UF;  COMMENT    THE    INPUT    3UFFS3; 

STRING  (72)     TOK;         COMMENT    THE    CURRENT    TOKEN; 

LOGICAL    FLAGS,    LIST,    TRANS,     \RITH; 

COMMENT    COMPILER    TOGGLES; 
LOGICAL    INTRANS: 

COMMENT    INDICATES    IF    IN    TRANSLATION    OR    INTERPRETATION; 
LOGICAL    COLLECTED; 

COMMENT    INDICATES    IF    HASH    TABLE    HAS     SEEN    FREED; 


3ITS    ARRAY    M(0::16333);       COMMENT    WORKSPACE; 
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0018 
0018 
0019 
0018 
0018 
0018 
0013 
0019 
0019 
00  20 
0020 
0021 
0021 
00  22 
0022 
0023 
0023 
002U 
0024 
00  25 
0025 
0026 
0026 
0027 
0027 
0029 
•0030 
00  32 
0032 
0033 
00  33 
0034 
0035 
0035 
0036 
00  36 
0037 
0037 
0038 
0038 
0038 
0039 
00  40 
0041 
0041 
0042 
0042 
0043 
0043 
0043 
00  44 
0045 
0046 
0046 
0047 
0047 
0048 
0049 
0049 
0050 
0051 
0051 
0052 
00  53 
0053 
00  54 
0055 
0055 
0056 
0057 
0057 
0058 
0058 
0059 
0059 
0060 
00  60 
0061 


2- 


-2 


2- 


C0gU2HT**************,'********:**=,t*,'1**:**  ******  ******  ***:»*:»*:** 

*  * 

*  SECTION  II:   PRIMITIVES  * 

*  * 
*********************** ********************************** **  • 

PROCEDURE  SETCDR (INTEGER  VALUE  X,  Y); 

COHMBNT  SET  THE  D  REGISTER  0?  CELL  AT  X  TO  VALUE  Y; 
J(X)  :=  (M(X)  AND  SFFFFOOOO)  OR  BITSTRING  (Y)  ; 

PROCEDURE  3STCAR (INTEGER  VALUE  X ,  Y)  : 

COMMENT  SET  THE  A  REGISTER  OF  CELL  AT  X  TO  VALUE  Y: 
M(X)  :=  (M(X)  AND  *FFFF)  OR  (BITSTRING  (Y)  SHL  16); 

INTEGER  PROCEDURE  CDR  (INTEGER  VALUE  N)  ; 

COMMENT  EXTRACT  THE  D  REGISTER  CONTENTS; 
NUMBER  (M  (N)  AND  #FFFF)  ; 

INTEGER  PROCEDURE  CAS  (INTEGER  VALUE  N)  : 

COMMENT  EXTRACT  THE  A  REGISTER  CONTENTS; 
NUMBER  (M  (N)  SHR  16)  ; 

INTEGER  PROCEDURE  CONS(INTEGER  VALUE  X,  f)   ; 
COMMENT  ADD  X  TO  FRONT  OF  LIST  AT  Y; 
3EGIN  INTEGER  A; 
A  :=  ALLOCATE; 
SSTCAR(A,X);    SETCDR  (A, Y); 
A 
END  CONS; 

LOGICAL  PROCEDURE  EQ  (INTEGER  VALUE  X,  Y)  ; 
X  =  Y; 

LOGICAL  PROCEDURE  ATOMflNTEGER  VALUE  X)  ; 

COMMENT  RETURN  TRUE  IF  CAR(X)  IS  CHARACTER  ATOM  CELL; 
M(X)  SHH  17  =  #00007FPF; 

INTEGER  PROCEDURE  ADD  (INTEGER  VALUE  X,  Y) ; 

COMMENT  RETURN  POINTER  TO  NEW  CONSTANT  ATOM  CONTAINING 

SUM  OF  CONSTANT  ATOMS  X  AND  Y; 
32GIN 
X 
Y 

BUILD  C  ATCM(X  +  Y) 
END  ADD" 


:  :=  NUMBER (M (CDS  (X)) )  ; 
r  :=  NUMBER  (M  (CDR  (Y) )  )  ; 
iUILD  C  ATCM(X  +  Y) 


INTEGER  PROCEDURE  MUL  (INTEGER  VALUE  X,  Y); 

IINTSS  TO  NEW  CONSTANT  ATOM  CONTAINING 


COMMENT  RETURN  PO] 
PRODUCT  Of 

BEGIN 


:ONSTANT    ATOMS    X    AND    Y; 


X    :=    NUMBER  (M  (CDR  (X))  )  ; 
Y    :=    NUMBER    H (CDRjY      ) ; 
3UILD    C    ATOM(X    *    Y) 
END    KULT 

INTEGER    PROCEDURE    CAAR     (INTEGER    VALUE    X)  ; 
CAR  (CAR  (X)  )  ; 

INTEGER    PROCEDURE    CDAR     (INTEGER    VALUE    X) ; 
CDR  (CAR  (X)  )  ; 

INTEGER    PROCEDURE    CADR     (INTEGER    VALUE    X); 
CAR  (CDR(X)  )  ; 

INTEGER    PROCEDURE    CADDR     (INTEGER    VALUE    X) ; 
CADS  (CER  (X)  )  ; 

INTEGER    PROCEDURE    CADAS     (INTEGER    7ALUE    X    ) ; 
CAR  (CDAR  (X)  )  ; 

INTEGER    PROCEDURE    CONS 3  (INTEGER    VALUE    X,Y,Z); 
COMMENT    PLACE    X    AND    Z    ON    LIST    AT    Z; 
CONS  (X,CONS  <Y,CONS  (Z,  NIL)  )  )  ; 

LOGICAL    PROCEDURE    N UL     (INTEGER    7AL&E    X) ; 
COMMENT    IS    LIST    EXHAUSTED; 
X    =    NIL; 
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0061 
0061 
0061 
0061 
0061 
0061 
0061 
00  62 
0062 
0063 
006U 
0065 
0065 
0066 
0066 
0066 
0067 
0068 
0069 
0070 
0071 
0072 
0073 
0073 
007U 
0074 
0075 
0075 
0076 
0077 
0078 
0079 
0079 
0080 

00  80 
0080 
0081 
0082 
0083 
0084 
0085 
0085 
0086 
0087 
0087 
0088 
3088 
0089 
0090 
0091 
0092 
0092 
0092 
0093 
0094 
0095 
0096 
0097 
0098 
0099 
0099 
0100 
0100 
0102 

01  04 
010U 
0105 
0106 
0107 
0108 
0108 
0109 
0109 
0109 
0109 
0109 
0109 
0109 
0109 
01  10 
01  10 
01  11 
01  12 
0113 
01  14 
01  14 
01  15 
01  15 


2- 


3- 


4- 


-4 
-3 


-2 


2- 


-2 


2- 


-2 


2- 


-3 


3- 


-3 

-2 


3- 


-3 
-2 


LIST; 


COMMENT*****  *********  *************************************** 

*  * 

*  SECTION    III:       STORAGE    MANAGEMENT  * 

*  * 

*********  ********************  ******************************; 

INTEGER    PROCEDURE    ALLOCATE; 

COMMENT    ALLOCATE    ONE    CELL; 
BEGIN 

INTSGSE    X; 
I    :=    CDR  (FLH)  ; 
I?    X    =    NIL    THEN 
BEGIN 
IF    INTRANS    OR    COLLECTED   THEN 

2RS0R  (2) 
ELSE 

BEGIN 

FREE    HASH    TABLE; 
X    :=~CDR  (FLH)  ; 
END; 
END; 
SETCDE  (FLH,    CDR  (X) )  ; 
X 
END    ALLOCATE; 

PROC2D0RE    ?REE(INTSGER    VALUE    X); 

COMMENT    RELEASE    CELL    AT    X    TO    FRI 

3EGIN 

M  (X)  :  =fl  (FLH)  : 

M    FLH) :=3ITSTRING  (X)  ; 

END    FREE; 

PROCEDURE    FREE    A    LIST  (INTSGE?.    VALUE    ?,A); 

COMMENT    FP.ZE'OUTDATED    PORTION    OF    A    LIST  J 
I?    P    -■*    A    THEN 

BEGIN 

FREE    A    LIST  (CDR  (P)  ,  A)  ; 

FR2E7CA"R(P)  )  ; 

FREE  (P)  ; 

END; 

PROCEDURE    FREE    HASH    TABLE; 
BEGIN 

PROCEDURE    FREE    ST ACK (INTEGER    7ALUE    I) ; 
I?    I    ■>=    Nil    THEN 
BEGIN 

FREE    STACK  (CDR  ( I)  )  ; 
FRESTD  ; 
END; 

FOR    I     :=    26    UNTIL    153    DO 

BEGIN 

FREE  STACK  (CDR  (I)  )  ; 

FR2E~STACK  (CAR  (I)  )  ; 

FREETI)  ; 

END; 
COLLECTED    :=    TROS; 
END    FREE_HA5H_TABLE; 

INTEGER    PROCEDURE    FREE    CELLS; 

COMMENT    RETURN    SIZ2   OF    FREE    STORAGE; 
BEGIN    INTEGER    ?TR,    COUNT; 
?TR    :=   CDR(FLH)_;       COUNT    :=    0; 
SHILS    PTR    -=    N_L    DO 

BEGIN 

COONT    :=    COUNT    ♦    1 ; 

PTR    :=    CDR  (PTR)  ; 

END; 
COUNT 
END    FREE_C21LS; 

COMMENT**********************  ******************************* 

*  * 

*  SECTION  17:   INPUT  SUPPORT  * 

*  * 
*******************************«***************************. 


2- 


-2 


INTEGER  PROCEDURE  BUILD  C  ATOM  (INTEGER  VALUE  A); 
COMMENT  CREATE  ATOM"~HZAO  ER  STRUCTURE  FOR  CON 
BEGIN 

INTEGER  C; 
C  :=  ALLOCATE; 
M(C)  :=  3ITSTRING (A) ; 
CONS  (NUM2ER  (4FFFE)  ,  C) 
END  BOILD  C  ATOM; 


ST A  NT  A; 
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01  15 
01  16 

01  17 
01  17 
0117 
01  18 
01  18 
01  19 
0120 
0120 
0120 
0121 
0122 
0122 
0123 
0124 
0121 
0125 
0125 
0126 
0127 
0123 
0129 
0129 
0130 
0131 
0132 
01  33 
0133 
0134 
0135 
0136 
0137 
0138 
0139 
0139 
01  U0 
01U0 
0141 
0142 
0142 
0143 
0143 
01  44 
0145 
0145 
0145 
0146 
0147 
0148 
0149 
0150 
0150 
0151 
0151 
0152 
0152 
0153 
01  53 
0153 
0153 
0153 
0153 
0153 
0153 
0154 
0154 
0154 
0155 
0156 
0157 
0157 
0158 
0159 
0160 
0161 
0162 
0162 
0163 
0163 
0163 
0165 
01  66 
0166 
0167 
0167 
0168 
0168 
0168 
0170 
0171 
0171 
0172 
0173 
0174 
0175 


2- 


4- 


-4 

4- 


-4 
-3 


-2 


2- 


-2 


PROCEDURE    BOILD   ATOM     (STRING  (72)     VALUE    WORD; 

INTSGER~VALUS    A, 3); 
COMMENT    CREATE    ATOM    HEADER    STRUCTURE    FOR    WORD    OF 

LENGTH    A    AT    LOCATION    3; 
BEGIN 

INTEGER    PROCEDURE    3UILD    PNAM2     (STRING  (72)     VALUE    WORD; 

INTEGER    VALUE    A7?)  ; 
COMMENT    CONSTRUCT    CELLS    TO    HOLD    CHARACTERS    OF    WORD 

STARTING    AT    LOCATION    ?    70S    4       LETTERS    OR    UNTIL    A; 
BEGIN 
INTEGER    3,C; 

PROCEDURE    INSERT    CHAR  (STRING  ( 1 )     VALUE    LTR ; 

INTEGER    VALUE    A)  ; 
COMMENT    INSERT    LTR    IN    CELL    A; 
S  (A)  :=  (M(A)  SHL    8)     OR    3ITSTRING     (  DECODE  (LTR)  )  ; 

3:=ALL0CATZ; 

C:=ALLOCATE; 

SETCAR  (B,C)  ; 

MJC)  :=*0; 

IF     (A-P)     <    5    THEN 


ELSE 


3EGIN 

SETCDR  (3, NIL)  ; 

FOR    I:=P    TNTIL 

FOR    I:=1    UNTIL 

END 


(A-1)     DO      INSERT    CHAR  (WORD  (I  |  1 )  ,C) 
[4-t-P-A)     DO       M(C)T=M(C)  SHL    8; 


DO       SUM :=SUM+ DECODE  (ACCUM (I|  1))  ; 


3- 


-2 


2- 


3- 


4- 


-4 
-3 


BEGIN 

FOR    I:  =  ?    UNTIL     (P  +  3)     DO       INSERT    CHAR (WOR D  (I | 1 )  , C) 

P:=P+4; 

SETCDR (B, BUILD    ? NAME (WORD, A  ,  ?)  )  ; 

END; 
3 
END    3DILD_PNAME; 

IF    A    <=    0    THEN       ERROR  (3)  ; 

M(B)     :=    M  (B)     OR    *FFFF0000  ; 

SETCDR  (B.CONS  (P NAME, CONS  (3UILD    PNAM S ( WO RD , A, 0)  ,NIL)  )) 

END    3UILD_ATOM; 

INTEGER    PROCEDURE    HASH     (INTEGER    VALUE    ACCL; 
STRING  (72>  VALUE    ACCUM); 
COMMENT    COMPUTE     AND    RETURN    HASHED    VALUE    OF    TOX    IN 
ACCUMULATOR    GIVEN    TOX    LENGTH; 

INTEGER    SUM,H; 

SUM:=0; 

FOR    I:=0    UNTIL    ACCL-1 

H:  =    26+SUM    REM    128; 

H 

END    HASH; 

PROCEDURE    PUSH  (INTEGER    VALUE    X,    I); 

COMMENT    PUSH    ATOM    ONTO    HASH    TA3L2; 
SETCDR  (I  ,CCNS  (X,CDR  (I)  )  )  ; 

COMMENT**********  ****  ********  *=«*«***>************************ 

*  * 

*  SECTION    7:       PROPERTY    LIST    ACCESS  * 

*  * 
ft********?*************************************************- 

INTEGER    PRCCEDUPS    FIND    7ALUE ( INTEGER    VALUE    HEADER , ATTRI3) ; 
COMMENT    SCAN    PROPERTY    LIST    OF    ATOM    AT    HEADER    FOR 

VALUE    OF    ATTRI3; 
3EGIN 

INTEGER    ?; 
P    :=    CDR  (HEADER)  ; 
WHILE    CAR  (?)     -=    ATTRI3    DO 

BEGIN 

IF    CDR(P)     =    NIL    THEN       ERROR(I); 

P    :=    CDR  (CD5(?)  )  ; 

IF    P    =    NIL    THEN      SRROR(I); 

END; 
CADR (P) 
END    PO 


ND^VALUE; 


PROCEDURE    GET    PNAMj 


INTEG_£R_VALUE    X;    STRING  (72)     RESULT    30FF; 

AT    X; 


I    GET    PNAME  (INTEGER    VAL 

'VjrppgTT'D       P  "^  S   fj  T.  ^       T  ^  >I  <"*  T1  U  \     • 

C0MM2NT~GET    PR  I NTNAME' A  NO    LENGTH    OF    ATOM 
3EGIN 


PROCEDURE    GET    CHARS  (INTEGER    VALUE    X)  ; 

COMMENT    EXTRACT    CHARACTERS    FROM    CELL 
FOR    J:=0    STEP    3    UNTIL    24    DO 
BEGIN    INTEGER    N; 

N    :=    NUM3ER((M(X)     SHL    J)     SHR    24); 
IF    N    >    0    THEN 
BEGIN 

BUFFfLENGTHI  1)     :=    CODS(N); 
LENGTH    :=    LSNGTH+1 ; 
END; 
END    GST    CHARS; 


X; 
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0176 
0176 
0177 
0178 
0179 
0179 
0180 
0181 
0182 
0183 
01  84 

oiea 

0184 
01  94 
0134 
0184 
01  34 
0184 
0185 
0185 
0136 
0186 
0187 

01  37 
0187 
0188 
0138 
0139 
0190 
0190 
0190 
0191 
0192 
0193 
0193 
0194 
0195 
0196 
0196 
0197 
0198 
0199 
0200 
0201 
0202 
0203 
0204 
0205 
0206 
0207 
0208 
0209 
0210 
0211 
0212 
0212 
0213 
0216 
0217 
0218 
0218 

02  13 
02  19 
0220 
0221 
0222 
0222 
0222 
0223 
0224 
0225 
0226 
0227 
0228 
0229 
0230 
0231 
0232 
0233 
0234 
0235 
0236 
0237 
0237 
0237 
0233 
0233 
0238 
0239 
02  40 
0241 
0242 
0243 
0244 


3- 


-3 

-2 


LENGTH    :=    0; 

30F?    :=    "    ": 

X    :=    FIND    VALUE (X,PNAME) ; 

WHILE    X    ~>=    NIL    DO 

BEGIN 

GET    CHARS  (CAR  (X))  ; 

X    :=   CDR(X)  ; 

END; 
END    GET_?NAME; 

COMMENT******  ******  *********************************  ******** 

*  * 

*  SECTION    VI:       INITIALIZATION  * 

*  * 
************************************************************ 


2- 


3- 


4- 


-4 


-3 


PROCEDURE  INITIALIZE; 
COMMENT  INITIALIZE 
3EGIN 


MEMORY  SPACE; 


PROCEDURE  3ETRSSWDS; 

COMMENT  INITIALIZE  RESERVED  WORDS  AND 

PREDEFINED  FUNCTIONS; 
BEGIN 

PROCEDURE  SETWORD  (STRING  (72)  VALUE  WORD; 

INTEGER  VALUE  LENGTH,  ADDR) ; 
COMMENT  PLACE  RESERVED  WORDS  IN  HASH  TABLE  AND 

BUILD  ATOM  321033  STRUCTURE  AT  ADDR; 
3EGIN 

INTEGER  VAL; 

VAL  :=  HASH  (LENGTH,  WORD); 

CCMMENT  PLACE  RESWORDS  ON  CAR  SIDE  OF  HASH  TABLE; 
5ETCAR (VAL, CONS (ADDR, CAR  (VAL))  )  ; 
30ILD  ATOM  (WORD,  LENGTH,  ADDR); 
END  3STWGRD; 


SETWORD 

" °  N A ME" 

,5,1)  ; 

SETWORD i 

limn 

,1,5    ; 

SETHORD 

II  5  11 

,  1 , 6)  ; 

SETWORD 

"NIL" 

,3,7)  ; 

SETWORD i 

"LAMBDA 

',5,31  ; 

SETWORD 

"LA3SL" 

,5,9     ; 

SETWORD  ( 

"COND" 

,4,10) 

SETWORD  | 

"QUOTE" 

,5,11 

SETWORD | 

"CAR" 

,3,  12 

SETWORD i 

"CDR" 

,3,  13 

SETWORD I 

"CONS" 

,4,14 

SETWORD i 

"30" 

,2,15 

SETWORD 

"ATOM" 

,4,1b) 

SETWORD 

"MUL" 

,3,17 

SETWORD 

"ADD" 

,3,13) 

END    SSTF 

SSWDS; 

C  :=  NC  :=  "  "; 

FLH  :=  0:   LINE  NO 

LIST  :=  TRUE;   " 

COLLECTED  :=  FLAGS  :=  TRANS 


0;   13?  :=  30; 


ARITH  :=  FALSE; 


COMMENT  INITIALIZE  SYMBOLS  FOR  TOKEN  CATEGORIES 


NUMS 

=   0: 

IDENTIFIE, 

?    :  = 

SPECIAL 

:■   2 

CONSTANT 

:=    3; 

COMMENT 

INITIALIZE    RESERVED    570RD    LOCATIONS 

PNAME 

;  = 

1; 

T 

= 

5 

F 

= 

6 

NIL 

= 

7; 

LAMBDA 

>  = 

8 

LABEL 

= 

9f 

COND 

= 

16 

QUOTE 

= 

11 

ICAR 

= 

12 

ICDR 

= 

13 

ICONS 

s 

14 

ISQ 

= 

15 

IATOM 

= 

16 

IMUL 

s 

17 

IADD 

= 

18 

COMMENT  PLACE  NILS  ON  30TH  SIDES  OF  HASH  TABLE; 
FOR  I:=26  UNTIL  153  DO   M  (I)  :=  *0007f>007; 

COMMENT  INITIALIZE  THE  FREE  LIST; 

FOR  I:=154  UNTIL  16382  DO   M (I)  :=  SITSTPING (1+ 1 ) ; 

HM6383)  :=#7:  i*  '  I  . 

■jOj  :=  BIT" 

CANNER; 


--> 


a 

s 

SE TR SSWDS . 

END  INITIALIZE; 


STRING  (154)  ; 
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0244 

— 

0244 

— — 

0244 

— — 

0244 

—  — 

0244 

— 

0244 

— — 

0244 

— — 

0245 

— — 

0245 

— 

0245 

2- 

0246 

— — 

0246 

—  — 

0247 

-  — 

0247 

3- 

0248 

-  — 

02  48 

—  — 

0249 

— 

02  49 

4- 

0250 

— — 

02  50 

—  — 

0251 

— 

0251 



0251 

5- 

0252 

— 

0252 

—  ■w 

0252 

— — 

0253 

— — 

02  53 

— — 

0253 

— — 

0254 

— — 

0255 

-  — 

0256 

-  — 

0258 

-  — 

0258 

—  — 

0259 

—  — 

0259 

6- 

0260 

— 

0261 

— 

0261 

7- 

0262 

—  — 

02  63 

— 

02  64 

-7 

0264 

— — 

0265 

7- 

0267 

-  — 

02  68 

-- 

0259 

-  — 

0270 

-7 

0271 

-6 

0272 

— 

0272 

— 

0273 

—  — 

0273 

— 

0274 

—  — 

02  74 

-5 

0275 

— 

0275 

-— 

0276 

— 

0277 

-4 

0278 

— 

02"'8 

— 

0279 

— — 

0279 

4- 

0280 

— — 

0281 

-- 

0282 

— — 

0293 

—  — 

0233 

-4 

02  34 

-  — 

02  34 

— — 

0285 

— — 

0286 

— — 

02  87 

—  — 

0288 

—  — 

0288 

-3 

0239 

— — 

0289 

-  — 

0290 

— 

0290 

— 

0290 

-- 

02  90 

— 

0290 

3- 

0291 

—  — 

02  92 

-- 

COMMENT***************************************************** 

*  '  * 

*  SECTION    VII:       SCANNER  * 
****:«************************************»3£****************. 

PROCEDURE    SCANNER; 

COMMENT    SCAN    INPUT    STREAM    ?OR    NEXT    TOK,     ASSIGN 

TYPE,    AND    30ILD    ATOM    HEADER    CELL    IF    REQUIRED; 
BEGIN 

PROCEDURE    GNC; 

COMMENT    GST    NEXT    CHARACTER    ?ROM    INPUT; 
BEGIN 

PROCEDURE    BUMP    13?; 

COMMENT    INPUT    3UFFSR    POINTER; 
BEGIN 

PROCEDURE    READBU?; 

COMMENT    INPUTS    NEXT    RECORD.     OUTPUTS 

LISTING,     MONITORS    COMMENTS    AND    FLAGS: 

BEGIN 

PROCEDURE    SET    FLAGS     (STRING  (1)     7ALUS    A)  ; 

COMMENT    AITS3    THE    APPROPRIATE    FLAG; 

IF  A="S"    THEN    FLAGS     :=    -FLAGS 

ELSE    IF    A="L"    THEN    LIST:=-LIST 

ELSE    IF    A  =  "T"    THEN    IRAN  S  :  =-*TRANS 

ELSE    IF    A  =  "A"    THEN    ARITH :=-A3I?H 

ELSE    WRITS  ("INVALID    FLAG    CALLED     ::",A); 

PROCEDURE    GSTCARD; 

COMMENT    READ    AND    LIST       A    DATA    CARD; 

BEGIN 

READCARD  (3UF)  ; 

IF    3UF  (0  |  1)     =    "S"    THEN 

3Eo  IN 

SET    FLAGS  (3UF  (1  |  1)  )  ; 

IF    FLAGS    THEN    WRITS  (5UF); 

END 
ELS  3 

3EGIN    INTFISLDSIZS     :=    4; 

LIN2    NO    :=    LINE    NO    +     1; 

I?    LIST    THEN    WRITS (LINE    ^O,"  ",3UF) 

INTFISLDSIZ3    :=    14; 

END; 
END    GSTCARD; 

GETCARD; 

WHILE     (3UF(0|  1)  ■ 

GETCARD; 
I3P:=0 
END    RSAD3UF; 


')     OH     (3UF  (0|  1)  ='«£")     DO 


I3P:=I3P+1 : 

IF    I3P    >=    30    THSN    READ3UF; 

END    3UMP_I3P; 

PROCEDURE    SKIP    COMMENT; 

COMMENT    SKIP    D73R    COMMENTS    IN    INPUT; 

3EGIN 

BUMP    IBP; 

WHILE    3UF(I3P|1)     -■=    "' "    DO    3UMP    I3P; 

BUMP    I3P: 

C:  =  BUF(I3?|  1) 

END    SKIP_COMMENT; 

IF    I3P>=80    THSN    BUMP    13?; 

C:=BUF(I3PI  1)  ; 

IF    C=" '"    THEN 

3UMP    IBP;" 

MC:=BUF(IBP  |  1) 

END    GNC; 


SKI?_COMMSNT; 


PROCEDURE    LOOK    UP; 

COMMENT    DETERMINE    IF    TOK    HAS    ALREADY    BEEN 
STORED.       IF    NOT,     CREATE    ATOM     HEADER    CELL 
AND    PNAME    ATTRI3UTS- VALUE    PAIR.        RETURN    POINTER 
TO    ATOM    HEADER    CELL; 

BEGIN 

INTEGER    ADDR; 
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0292  —  LOGICAL  PROCEDURE  STORED  (INTEGER  7ALUE  H)  : 

0293  —  COMMENT  DETERMINE  I?  ATOM  HEADER  CELL  SXISTS-- 
0293  —  IF  SO,  ASSIGN  HEADER; 

0293  4-  BEGIN 

0294  —  STRING(72L    WORD; 

0295  —  INTEGER    LSNGTH1; 

0296  —  LOGICAL    FLAG; 

0297  —  IF    H    =    NIL    THEN    FLAG    :=    FALSE 

0297  —  ELSE 

0298  5-  3EGIN 

0299  —  GET    PNAME  (CAR  (H)  ,     WORD,    LENGTH1); 

0300  —  IF    TOK    =    WORD    THEN 
0300    6-  BEGIN 

03  01    —  HEADER    :=    CAR  (H)  ; 

0302    —  FLAG    :=    TRUE 

0302    -6  END 

0302    —  ELSE    FLAG    :=    STOR  ED  (CDR  (H)  )  ; 

030U    -5  END; 

0305    —  FLAG 

0305  -U  END    STORED; 

0306  — 

0306  —  ADDR     :=    HASH  (LENGTH  ,  TOK)  ; 

0307  —  IF   -^  (STORED  (CDR  (ADDS)  )     OR    STORED  (CAR  (ADDR)  )  )     THEN 

0307  4-  BEGIN 

0308  —  HEADER: =ALLOCATS: 

0309  —  BOILD    ATOMjTOK,     LENGTH,     HEADER)  ; 

0310  —  PUSH(HSADER,    ADDR); 

0311  -4  END 

0311  -3  END    LOOK    DP; 

0312  -- 
0312    -- 

0312  —  PROCEDURE    SUILD    TOK; 

0313  —  COMMENT    ADD'NEXT    CHARACTER    TO    TOK; 
0  313    3-  BEGIN 

0314  --  I?    LENGTH    >=    72    THEN    SYN    ERR(1); 

0315  —  TOK(LENGTH(  1)      :=    C; 

0316  —  LENGTH:=L£NGTH+1; 

0317  -3  END    BUILD    TOK; 
03  18    -- 

03  18    —  COMMENT    MAIN    OF    SCANNER; 

03 18  --  LENGTH    :=    0; 
03  19    --  TOK    :=    "    ": 
0320    —  I?    C<"A"    THEN 

0320  3-  BEGIN 

0321  --  IF    c=nnn"    THEN 

0321  a-  BEGIN 

0322  — *  WHILE    NC-^""""    DO 
0322    5-  3EGIN 

03  23    --  GNC: 

0324  —  BUILD    TOK; 

0325  -5  END;    - 

0326  —  GNC; 

0327  —  TYPE    :=    CONSTANT;       LOOK    UP; 
m?a    -a  END 

0329  —  ELSE    IF     ((C  =  "#")     OR     (C="<")     OR     <C-">")     OR     (C="3")     OR 

0330  —  C="5"j    OR     (C="(")     OR      C=")"      OR      C  =  ";")     OR 
0330    —  C  =  "-"       OR     (C="    "f     OR       C="."    )     THEN 

0330  4-  BEGIN 

0331  —  TOK  :=  C;   TYPE  :=  SPECIAL; 
0333  -4  END 

0333  —  ELSE 

0334  4-  BEGIN 

0335  —  TCK  :=  C;   TYPE  :=  IDENTIFIER; 

0337  —  LENGTH  :=  1;    LOOK  UP 

0338  -4  END 
0338  -3  END 

0338  --  ELSE 

0339  —  IF     (C>="A")     AND     (C<="Z")     THEN 

0339  3-  BEGIN 

03  40    —  WHILE    NC    >=    "A"    DO 

0340  4-  BEGIN 

0341  —  BUILD    TOK; 

0342  —  GNC;    " 

0343  -4  END; 

0344  —  3UILD    TOK; 

0345  —  TYPE:=IDSNTIFISR; 

0346  --  LOOK    UP; 

0347  -3  END    " 

0347  —  ELSE 

0348  --  IF    C>="0"    THEN 

0343    3-  BEGIN    INTEGER    SUM; 

0350  —  SUM  :=  0; 

0351  —  WHILE  NC  >=  "0"  DO 

0351  4-  BEGIN 

0352  --  SUM    :=     10*SUM    >     (DECODE (C)     -    240); 

0353  —  IF    SUM    >     (MAXINTSGER    DI7    10)     THEN    SYN    ERR  (2); 

0354  --  GNC; 

0355  -4  END; 

0356  --  SUM    :=    10*SUH    +     (DECODE(C)     -    240); 

0357  —  TYPE:=NUMS; 

0353  —  HEADER  :=  3UILD  C  ATOM (SUM); 

0359  -3  END  

03  59  —  ELSE 

0360  —  SYN  ERR  (3)  ; 
03  61  —  GNCT 

0362  —  WHILE  C="  "  DO  GNC; 

0363  -2  END  SCANNER: 
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03  64 
0364 
03  64 
0  3  64 
036U 
03  64 
03  64 
0364 
0365 
0365 
0366 
0367 
0368 
0368 
0369 
0371 
0371 
0373 
03  74 
0375 
0375 
0375 
0376 
0377 
0377 
03  77 
0378 
03  80 
0380 
0330 
0381 
0381 
0382 
0332 
0382 
03  33 
0383 
03  84 
0334 
0385 
0336 
03  87 
0388 
0389 
0390 
0391 
0392 
0393 
03  94 
0395 
0396 
0396 
03  97 
03  97 
0397 
0398 
0398 
03  99 

03  99 
0400 
0403 
0403 
0403 
0404 

04  06 
04  07 
0407 
0409 
0409 
0410 
04  10 
0411 
0412 
0413 
0414 
04  15 
0416 
0417 
04  18 
0419 
04  19 
04  20 
0420 
04  20 
0421 
0421 
0422 
0423 
0425 
04  25 
04  26 


2- 


3- 


-3 
3- 


-3 

-2 


2- 


3- 


CQ^ggNT****************  ***********************  ************'*:* 

*  *  * 

*  SECTION    VIII:       TRANSLATION  * 

*  * 

*********  ******************************************:*  *******. 

INTEGER    PROCEDURE    30TLDS; 

COMMENT    LEFT    PARENTHESIS    ALREADY    SEEN; 

BEGIN 

INTEGER    T; 

SCANNER; 

IF    TOK    =    "]  "    THEN    NIL 

ELSE    IF    TCK    =    " ."    THEN 

BEGIN    SCANNER; 

IF    TOK    =    "("    -HEN    T     :=    3UILDS 

ELSE    T    :=    HEADER; 

SCANNER; 

IF    TOK    -=    ■•)"    THEN    SYN    ERR  (7)  ; 


ELSE 


tEND 

'begin 


OR 


(TYPE    = 
=    30ILD; 


NUMS)     THEN 


3- 


5- 


-4 


-3 


IF     (TYPE    =    IDENTIFIER] 

T    :=    HEADER 
ELSE    IF    TOK    =    "  ("    THE! 
ELSE    SYN    ERR  (7)  ; 
CONS  (T,30*ILDS) 
END 
END    BUILDS; 

INTEGER    PROCEDURE    TFUNC; 

COMMENT    TRANSLATE    AN    M-  EX  PRSSSION    'UNCTION 

INTO    AN    INTERNAL    3-ZZPRSSS ION ; 
BEGIN 

INTEGER    PROCEDURE    LABEL    FUNC: 

COMMENT    TRANSLATE    A~LA5EL    FUNCTION; 

BEGIN 

INTEGER    F?,FUNC; 

SCANNER; 

IF    TOK-=    "<"    THEN    SYN    ERR  (4)  ; 

SCANNER; 

FF    :=    HEADER; 

SCANNER; 

IF    TOK    -=    ";"    THEN    SYN    ERR  (4)  ; 

SCANNER; 

FUNC    :=    TFONC; 

SCANNER; 

IF    TOK    -=    ">"    THEN    SYN    ERR  (4)  ; 

COHS3  (LABEL, FF, FUNC) 

END    LABZL^FUNC; 

INTEGER    PROCEDURE    LAMBDA    FUNC; 

COMMENT    TRANSLATE    A    IAM3DA    FUNCTION; 
BEGIN 

INTEGER    PROCEDURE    7A3LI5T; 

3SGIN    INTEGER    T;     SCANNER; 
IF    TOK    =    ">"      THEN 

T    :=    NIL 
ELSE    IF     (TOK="<")     OR     (TOK="  ;")     THEN 

BEGIN    SCANNER; 

T    :=    CONS  (HEADER, VARLIST)  ; 

END 
ELSE    SYN_ERR (10) ; 
v  — 

END    VARLIST; 

INTEGER    VLIST,FORM; 

SCANNER; 

IF    TOK-="<"    THEN    5YN_SRE  (5); 

VLIST    :=    VARLIST; 

SCANNER; 

IF    TOK-.=  ";"    THEN    SYN    SRR(5); 

FORM    :=   TFORM; 

SCANNER; 

IF    TOK   -*=    ">"    THEN    SYN    ERR  (5)  ; 

CONS  3  (LAMBDA,  VLIST,  FOR5?) 

END    LAMBDA    FUNC; 


-2 


INTEGER  FN; 

IF  TYPE  =  IDENTIFIER  THEN 

ELSE  IF  TOK  =  "S"       THEN 

ELSE  IF  TCK="3"       THEN 

ELSE  SYN  ERR  (6)  ; 

FN 

END  TFONC; 


FN  :=  HEADER 

FN  :=  LAMBDA  FUNC 

FN  :=  LA3EL  7UNC 
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IF    TOK    =    '•>••    THEN    T    :=    NIL 
ELSE    I?     (TOK    ="<")  03  (TOK=":") 
T    :=   CONSfTFOBH, ARG    LIST 
ELS2    SYN    ERR  (9)  ; 


0426  —  INT2G2R    PROCEDURE    TFORM; 

0427  —  COMMENT    TRANSLATE    A       FORM; 

0427  2-  3EGIN 

0428  — 
04  23  —  INTEGER  PROCEDURE  ARG  LIST; 

0429  —  COMMENT  CONSTRUCT~AN  ARGUMENT  LIST; 

0429  3-  BEGIN 

0430  —  INTEGER  T; 

0431  —  SCANNER; 

0432  —  IF    TOK    =    ">"    THEN    T    :=    NIL 
0432    —  ELSE    I?    (TOK    ="<")  OR  (TOK="  ;  ")     THEN 
0433 
0433 

0435  —  T 
04  35    -3  2ND    ARG   LIST; 

0436  — 

0436  —  INTEGER    PROCEDURE    3UILD    COND: 

0437  —  COMMENT    TRANSLATE    CONDITIONAL    M-2XPR233I3N    INTO 
0437    —  INTERNAL    S- EXPRESSION ; 

0437  3-  BEGIN 

0438  -- 

0438  —  INTEGER    PROCEDURE    3UILD    ?    S    PAIRLIST; 

0439  —  COKHSNT    3UILD    PREDICATE-EXPRESSION    PAIR    LIST; 

0439  4-  BEGIN 

0440  —  INTEGER  T2; 

0441  -- 

0441  —  INTEG2R  PROCEDURE  P  E  PAIR; 

0442  --  COMMENT  3UILD  PREDICATE- EX? RE3SI0N  PAIR; 

0442  5-  3EGIN 

0443  —  INTEGER  ?,S; 

0444  --  P  :=  TFORM; 

0445  —  SCANNER; 

0446  —  IF    TOK    =    "-'*    THEN 
0446    —  Z    :=    CONS  (TFORM, NIL) 
0446    —                                                          ELSE    STN    ERR  (9); 
0448    —                                                             CONS  (P,Er 

0448  -5  2ND    ?    S    PAIR; 
04  49    —  ~    ** 

0449  —  IF    TOK=">"    THEN    T2:=NIL 

0449  —  ELSE  IF  (TOK  =  "<")  OR  (TOK  =  ";")  THEN 

0450  5-  3EGIN 

0451  --  T2:=?    S    PAIR;       SCANNER; 
0453    --                                                          T2: =CON5(!2, 3UILD    ?    E    ?AIRLI3T> 
0453    -5  2ND 
0453    —                                                2LS2    SYN    ERR(3>; 
0455    --                                                T2 

0455  -4  2ND    ?    E    PAIRLIST; 

0456  — 
0456    — 

0456  -3 

0457  — 
0457    —  COMMENT    MAIN    OF    TFORM; 

0457  --  SCANNER; 
0453    -- 

0453    --  IF     (TYPE=CONSTANT1     OF.     (TYPE=NUM5)     THEN 

0453    —  COMMENT    FORM    IS    A    CONSTANT; 

0453    —  CONS  (QUOTE,     C0N3(HEADER,    NIL)) 

0453    -- 

0458  —  ELSE    I?    TCK    =    "  ("    THEN 

0459  —  COMMENT    FORM    IS    AN    S- EXPRESSION  ; 
0459    —                                     CONS (QUOTE, CONS  (BOILDS, NIL) ) 
0459    -- 

0459  —  2L32    IF     (TY?E=IDENTIFI2  R)     AND     (    C ->="<")     THEN 

0460  —  COMMENT    FORM    13    A    7ARIA3LE; 
0460    —  HEADER 

0460    — 

0460  —  ELSE  IF  TOK  =  "<"  THEN 

0461  —  COMMENT  FORM  IS  A  CONDITIONAL; 
0461  --  3UILD  COND 

0461  — 

0461  —  ELSE  CCKMENT  FORM  IS  A  FUNCTIQN<ARG  LIST>  OR  A  FUNCTION 

0462  —  (FUNCTIONAL  ARGUMENT)  ; 
0"62  3-  BEGIN  INTEGER  T ; 
0464  --               T  :=  TFUNC; 


CONS  (COND, 3UILD  ?  E  PAIRLIST) 
END  3UILD_COND;     ~ 


04  65  —  IF  C  =  "<"  THEN  CON'S  (T,  ARG  LIST) 

0465  —  ELSE  CONS (QUOTE,  CONS(T,  NIL)) 

0466  -3  END 
0466  -- 

0466  -2  END  TFORM; 

0467  -- 
04  67  — 

0467  —  INTEGER    PROCEDURE    TARGS; 

0468  —  COMMENT    BUILD    ARGUMENT    LIST    OF    5- EXPRESSIONS ; 
0463    2-  BEGIN 

0469  —  INT2G2R    T; 
04  70    —  SCANNER; 

04  71    —  I?    TOK    =    ">"    THEN    T    :=    NIL 

0471    —  ELSE    IF     (TOK    ="<*•)     OR     (TOK=";")     THEN 

0  472    3-  BEGIN    SCANNER: 

0474    --  I?     (TYP2=IDENTI7IER)     OR     (TYPE  =  NUM5)     THEN 

0474    --  T    :=    CONS  (HEADER, TARGS) 

0474  —  ELSE    IF    TOK    =    "  ("    THEN 

0475  —  T    :=    CONS  (3UILD5, TARGS) 
04  75    —                                      ELSE    SYN    ERR  (9)  ; 

0477  -3  END; 
0473    --  T 

0478  -2  END    TARGS; 
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Q4  79 COMMENT************  ********************************  ********* 

0U79    --  *  * 

0479    —  *  SECTION    IX:       INTERPRETATION  * 

0479    —  *  * 

0479  — 

04  79  —       INTEGER  PROCEDURE  E7ALQU0TS  (INTEGER  VALUE  ?N,  X); 

0480  —  COMMENT  EVALUATE  THE  FUNCTION  AT  'FN'  APPLIED  TO 
0480  —  THE  ARGUMENTS  AT  'X'; 

0480  2-  BEGIN 

0481  — 

0481  —  INTEGER    PROCEDURE    COMPOSE (INTEGER    VALUE    X , Y)  ; 

0482  —  COMMENT    RETURN    DATA    ELEMENT    AND    ASSOCIATED 

0482    —  G-VSCTOR    REPRESENTING    FUNCTIONAL    COMPOSITION; 

0482  —  CONS  (CAR  (2)  ,AP?END(Y  ,  CDR  (X)  )  )  ; 

0483  -- 

0483  —  INTEGER    PROCEDURE    APPEND (INTEGER    VALUE    X ,  I)  ; 

0484  —  COMMENT    APPEND    LIST    t    TO    LIST    X; 
04  84    —  IF    X    =    NIL    THEN    I 

0434    —  ELSE 

0485  3'  BEGIN    INTEGER    T; 

0487  —  T    :=    X; 

0488  —  3HILE    CDR(T)     -=    NIL    DO 
0438    —  T    :=    CDR(D  ; 

0489  —  SETCDR  (T,I)  ; 

0490  —  1 

0490  -3  END; 

0491  — 

0491  —  INTEGER    PROCEDURE    APPLY (INTEGER    VALUE    FN,    X,    A); 

0492  —  COMMENT    APPLY    THE    FUNCTION    TO    ITS    ARGDMENTS    AND 
0492    —  GENERATE    THE    ASSOCIATION    LIST; 

0492  3-  3ZGIN 

0493  — 

0493  —  INTEGER  PROCEDURE  INCR  G; 

0494  —  IF  ARITH  AND  (FN  <~IMUL)  THEN 
04  94  —  CDR  (X) 

04  94  — —  ELSE 

0495  —  APPSND(CD2(X) ,CONS (30ILD    C    ATOM  ( 1)  ,  NIL)  )  ; 
04  96    — 

0496  —  INTEGER    PROCEDURE    PAIRLIS (IMTEGER    VALUE    X,    1,    A); 

0497  —  COMMENT    BUILD    A    LIST    OF    PAIRS    OF    CORRESPONDING 
0497    —  ELEMENTS    OF    LISTS    X    AND    Y    AND    APPEND    THIS    NSvf    LIST 
0497    —  TO    THE    ASSOCIATION    LIST; 

0497  —  I?    NUL(X)     AND    NUL(Y)     THEN 

0497  --  A 

0497  —  ELSE    IF    ATOM(X)     OR    ATOM  (Y)     THEN 

0498  —  EXEC    ZRR(3,A) 
04  98  —                                                ELSE 

04  99    —  CONS  (CONS  (CARJX)  ,  CAR  (Y)  )  , 

0499  —  PAxRLIS  (CDR  (X)  ,CDR  (Y)  ,A)  )  ; 

05  00    — 

0500  —  COMMENT    MAIN    OF    APPLY; 
0500    —  IF    ATOM(CAR(X))     THEN 
05  00    —  EXEC    ERR  (5,  CAR  (X)  ) 
05  CO    —  ELSE    IF    ITCM(FN)     THEN 


05  18 
0519 
05  20 


0501  4-  BEGIN 

0502  —  IF    SQfFN, 
0502    5-  3&GIM 


0503    —  IF    ATOM  (CAAR  (X)  )     THEN 

0503    —  EXEC    ERR    4, CAAR  (X) ) 

0503  --  ELSE 

0504  —  CONS  (CAAR  (CAR  (X)  )  ,  INCR  G) 
0504  -5  END 

0504  —  ELSE  IF  SQ(FN,ICDR)  THEM 

0505  —  CONS  (CDAR  (CAR  (X)  )  ,  INCR  G) 

0505  —  ELSE  17  EQ(FN, ICONS)  THEN   " 

0506  —  CONS  (CONS  (CAAR  (X)  ,CADAR  (X)  )  ,  INCR  2) 

0506  —  ELSE  IF  EQ(FN,IATOM)  THEN 

0507  5-  BEGIN 

0508  --  I?    ATOM  (CAAR  (X)  )     THEN    CONS(T,    INCR    G) 

0508  --  ELSE    CONS(F,     INCR    G) 
05  09    -5-  END 

0509  —  ELSE    I?    EQ(FN,ISQ)     THEN 

0510  5-  BEGIN 

05  11    —  IF    SQ     (CAAR(X),    CADAR  (X)  )     THEN 

0511  —  coNsrr.   incr  g) 

0511  --  ELSE    CONS(P.     INC3    G) 

0512  -5  END 

0512  —  ELSE    IF    EQ(FN,    IADD)     THEN 

0513  —  CONS  (ADD(CAAR  (X)  ,CADAR(X)  )  ,     INCR    G) 

0513  —  ELSE    IF    SQ(FN,     IMUL)     THEN 

05  14    --  CONS  (MUL  (CAAR  (X    ,  CADAR  (X)  )  ,     INCR    G) 

0514  --  ELSE 

0515  —  APPLY  (CAR  (EVAL  (FN, A)  )  ,X,A) 
05  15-4  END 

0515    —  ELSE    IF    SQ  (CAR  (FN)  , L AM3D A)     THEN 

0  516    4-  BEGIN 

05  17    —  INTEGER    P.    TEMP; 

?    :=    PAIRLIS (CADR  rFN)  ,CAR  (X)  ,A)  ; 

TSMP:=SVAL (CADDR (FN) ,     ?) ; 

FREE    A    LIST  (?,  A)  ; 

0521    —  C0M?as2  (TEMP,    CDR(X)) 

0521    -4  END 

0521  —  ELSE    IF    EQ  (CAR  (FN)  , LA 3EL)     THEN 

0522  —  APPLY  (CADDR  (FN)  ,X, 

0522    --  CONS  (CONS  (CADR (FN)  , CADDR  (FN)  ),  A)  ) 
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0522  —  ELSE    EXEC    EHR(1,FN) 

0523  -3  END    APPLY" 

0524  — 

052a  —           INTEGEH  PROCEDURE  E7AL (INTEGER  VALUE  S,  A) ; 

0525  --  COMMENT  EVAL  HANDLES  FORMS; 

0525  3-  BEGIN 

0526  -- 

0526  —  INTEGER  PROCEDURE  ASSOC  (INTEGER  VALUE  X,A)  ; 

0527  --  COMMENT  RETURN  THE  FIRST  PAIR  IN  THE  ASSOCIATION 
0527  —  LIST  WHOSE  FIRST  TERM  IS  X; 

0527  —  IF  NOL  (A)  THEN 

0527  —  EXEC  SRR(2,X) 

0527  —  ELSE  IF  EQ  (CAAR  (A)  ,X1  THEN 

0528  —  CAR  (A) 

0528  —  ELSE 

0529  --  ASSOC  (X,CDR (A) )  ; 

0530  -- 
0530  -- 

0530  —  INTEGER  PROCEDURE  SUM  (INTEGER  VALUE  X,Y); 

0531  — i  COMMENT  SUM  CORRESPONDING  ELEMENTS  OF  X  AND  T: 
0531  4-  BEGIN  INTEGER  T; 

0533  —  IF  NUL(X)  THEN  T  :=  Y 

0533  —  ELSE  IF  NUL  (Y)  THEN  T  :=  X 

0534  —  ELSE 

0535  5-  BEGIN 

0536  —  T  :=  CONS  (ADD  (CAR  (X)  ,  CAR 
05  36  —  SUM  (CDR  (X)  ,  CDR 

0537  --  FREE  (CDAS  (X)  )  ;   FREE  (CAR  (X)  j  ';  '  FREE  (X)  ; 
0540  --  FREE  CDAR  Y))  ;   FREE  CAR  Y):   FREE  (Y)  ; 

0543  -5  END; 

0544  —  T 

0544  -4  END    SUM; 

0545  -- 

0545  --  INTEGER    PROCEDURE    COMBINE [INTSG ER    7ALUE    X,Y); 

0546  —  COMMENT    COMBINE    EVAULUATED    ARGUMENTS    AND 
0546  --  G-VECTORS; 

0546  —  IF    NUL(Y)     THEN 

0546  —  CONS  (CONS  (CAR  (X)  , NIL)  ,CDR  (J)  ) 

0546  —  ELSE 

0547  —  CONS  (CONS  (CAR  (X)  ,CAE(Y)  )  ,     SUM  (CDR  (X  )  ,  CD  R  ( Y)  )  ) 

0548  — 

0548  —  INTEGER    PROCEDURE    EVLIS  (INTEGER    VALUE    M,A); 

0549  —  CGMMENT    RETURN    EVALUATED    ARGUMENT    LIST 
0549  —  AND    COMBINED    G-7ECT0R ; 

0549  4-  BEGIN 

05  50  —  IF    NUL(M)     THEN 

0550  --  NIL 

0550  —  ELSE 

0551  —  COMBINE  (EVAL  (CAR  (M)  ,  A)  ,S7LI5  (CDR  (M)  ,  A)  ) 

0551  -4  END    E7LI3; 

0552  -- 

0552  —  INTEGER  PROCEDURE  EVCON (INTEGER  VALUE  C,A); 

0553  —  COMMENT  RETURN  EVALUATED  CONDITIONAL  AND 
0553  —  G-VSCTOR; 

0553  4-  BEGIN 

0554  —  IF    C    =    NIL    THEN 
0554  --  EXEC    ERF.  (6,  A) 

0554  —  ELSE 

0555  —  GRA?HCON(EVAL  (CAAR  (C)  ,A)  ,C,  A) 

0555  -4  END    EVCON; 

0556  — 

0556  —  INTEGER    PROCEDURE    G RAPHCON [INTEGER    VALUE    ?,C,A1  ; 

0557  --  COMMENT    COMPOSE    G-VECTOR    FROM    PREDICATE    WITH 
0557  —  G-VECTOR    FROM    REMAINDER    OF    CONDITIONAL    AND 
0557  —  RETURN    WITH    7ALUS    OF    CONDITIONAL; 

0557  —  IF  CAR(P)  =  T  THEN 

0557  —  COMPOSE  (EVAL  (CADAR  (C)  ,  A)  ,  CDR  (P)  ) 

0557  —  ELSE  I?  CAR  (?)  =  F  THEN 

0553  —  COMPOSE  JSVCON  (CDR  (C)  ,  A)  ,CDR  (P)  ) 

0558  —  ELSE  EXEC  ERR (7  ,  C AAR (C) )  ; 
0560  -- 

0560  —  COMMENT  MAIN  OF  E7AL; 


0560  —  CONS  (CDR  (ASSOC  (3,  A)  ),  NIL) 

0560  —  ELSE  IF  ATOM  CAR(E))  THEN 

0561  4-  BEGIN 

0562  —  I?  EQ  (CAR  (El,  QUOTE)  THEN 
0562  —  CONS  (CADR  (S)  ,  NIL) 


0562  --  ELSE  IF  EQ  (CAR  (S)  ,  CONDI  THEN 

0563  —  EVCON  (CDR  (E)  ,  A) 

0563  --  ELSE 

0564  --  APPLY  (CAR  (E)  ,  EVLIS  (CDR  (S)  ,A)  ,  A) 
0564  -4                   END 

0564  —  ELSE 

0565  --  APPLY  (CAR  (S),  EVLIS  (CDR  (S)  ,  A),  A) 

0565  -3  END  EVAL; 

0566  — 

0566    —  COMMENT    MAIN    OF    E7ALQU0TE; 

05  66    -- 

0566    —  APPLY  (FN,  CONS  (X  ,  NIL)  ,  NIL) 

05  66    —  — 

0566  -2  END    SVALQUOTS; 

0567  — 
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0574 
0575 
05  76 
0576 
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0579 
0530 
0531 
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0533 
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05  98 
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06  00 
0600 
0601 
0601 
0602 
0602 
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0604 
0605 
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06  06 
0607 
0607 
06  08 
06  08 
0609 
0609 
06  10 
06  11 
0612 
0613 
0613 
0614 
0614 
0615 
0615 
0616 
0616 
06  18 
0618 
06  19 
0621 
0623 
0623 
0624 
0625 
06  26 
06  27 
0623 
06  29 


2- 
3- 


2- 


3- 


-3 
-2 


2- 
3- 


-3 


-2 


2- 
3- 


4- 


-4 


-3 

-2 


COM  .1  EH'''****************  ************************************* 

*  '  * 

*  SECTION  X:   ERROR  HANDLING  * 

*  * 

PROCEDURE  ERROR  (INTEGER  VALUE  K)  : 

COMMENT  HANDLE  PROGRAMMING  ERRORS; 

BEGIN 

CASE  S  O? 

BEGIN 

WRITS  ("ATTRI3CTS  NOT  ON  PROPERTY  LIST"): 

WRITE  ("PROGRAM  TOO  LARGE  TO  EXECUTE  IN  ", 
"PRESENT  MEMORY  SPACE") ; 

WRITE  ("STTSMPTSD  STORAGE  Or  WORD  OF  LENGTH  ZERO"); 

END; 
RECOVER; 
END; 

PROCEDURE  SYN  ERR  (INTEGER  VALUE  K)  ; 
COMMENT  HANDLE  SYNTAX  ERRORS; 
BEGIN 

STRING<30)  EEE3UF; 
I?  -LIST  THEN  WRITE  (" 
ERRBGF  :=  "  " ; 
EF.RBUF  (IBP  I  1)  :=  "  |  "; 
WRITS  ('*     IB?:",22HBaF)  ; 
WRITE  ("* ***** 


",BUF)  ; 


WRITSO"  " 

WRITS  ("  " 

CASE  X  OF 
BEGIN 
WRITS 
WRITE 
WRITE 
WRITE 
WRITE 
WRITS 
WRITS 
WRITE 
WRITE 
WRITE 
END; 

RECOVER 

END    SYN    ERS; 


»***K*II 


)  ; 


IB    LINE_NO",LINS_NO) 


"TOKEN    LEN3TH    EXCEEDS    72"''; 
"INTEGER    VALUE    TOO    LARGE") ; 
"ILLEGAL    CHARACTER") ; 
"IMPROPER    LABEL    COMS "loUC^")  ; 
"IMPROPER    LAMBDA    EXPRESSION")  ; 
"nNDEC0DA3LS    M-EXPRSS3 10 N")  ; 
"IMPROPERLY    PARENTHESIZED    EXPRESSION") ; 
"INVALID    CONDITIONAL    EXPRESSION") ; 
"INVALID    ARGUMENT    LIST    CONSTRUCTION") ; 
"INVALID    VARIABLE    LIST")  ; 


INTEGER    PROCEEUEE    EXEC    ERR     (INTEGER    VALUE    X,    Y) ; 
COMMENT    HANDLE    SEMlNTIC    ERRORS; 
BEGIN 
CASE    X    OF 
BEGIN 

WRITE  ("ERROR-  IMPROPERLY  DEFINED  FUNCTION:")  ; 
WRITS  "ERROR-  UNDEFINED-  VARIABLE  OR  FUNCTION: 
WRITE  ("ERROR-  VARIA3LS  LIST  DOES  NOT  MATCH  ", 
"ARGUMENT    LIST.     LATEST    A-LIST    IS:") ; 


WRITS  ("ERROR-    ATTEMPTED    CAR    C?    ATOM."); 
-  ("ERF  " 

"ARGUMENT    LIST    IS:")  ; 


WEI' 


ERROR-  ARGUMENT  LIST  CANNOT  3E  AN  ATOM. 


WRITE  ("ERROR-  UNDEFINED  CONDITIONAL.   " , 

"LATEST  A— LIST  IS  :  "1  * 
WRITS  ("PREDICATE  DOSS  NOT  GIVE  TRUTH  VALU: 

"   PREDICATE  IS:") ; 
END; 
OUTPUT  (Y)  ; 
RECOVER; 
X 
END  SXEC_EHR; 

PROCEDURE  RECOVER: 

COMMENT  RECOVER  FROS  FATAL  ERRORS; 

3EGIN 

IF    INTRANS    THSTT 

BEGIN    INTFIELDSIZS    :=    4; 
WHILE    3UF  (0-|  1)     -■=    "S"    DO 
BEGIN 

5EADCARD  (3UF);       INTFI  ELDSIZ  S:  =  4  ; 
LINE    NO    :=    LINE    NO+1;       I3P:=0; 
IF    LIST    THEN 

WRITE  (LINE    NO,"         ",3UF)  ; 
END; 
INTFIELDSIZS    :=    14; 
END; 
GO    TO    FINIS; 
END    RECOVER; 
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C0M3ENT** ****  **************** *****************  *************** 

*  "  * 

*  SECTION    XI:       OUTPUT  * 

*  * 

A***************************************.***********:********; 

PROCEDURE    OUTPUT  (INTEGER    VALUE    X)  ; 
COMMENT    PRINT    LIST    ROOTED    AT    X; 
BEGIN 

STRING(72)     OUTEUF; 
INTEGER    OBP; 

PROCEDURE    DUMP: 

COMMENT    PRINT    OUTPUT    BUFFER; 
BEGIN 


WRITE  (OUT3UF)  ;     SKIPM)  ; 
OBP    :=   0:      OUTBUF    :=    "    " 
END    DUMP; 

PROCEDURE    BUMP    OBP; 

COMMENT    MANAGES    OUTPUT    BUFFER    SIZE; 

3EGIN 

OBP    :=    0  3P+1; 

IF    OBP    >=    72    THEN    DUMP; 

END    BUMP    OBP; 


PROCEDURE  PRINT  ATOM  (INT 
COMMENT  ?UT~AIOM  INT 
BEGIN 

STRINGI72)  3U7F; 
INTEGER  LENGTH; 


GER  VALUE  X): 
0  OUTPUT  3UFFER; 


LCGI 


CAL    PROCEDURE    NUS    ATOM  (INTEGE"    VALUE    X)  ; 
COMMENT    DSTSRMINE~I?    AN    ATOM    HEADER    CELL 

POINTS    TO    A    NUMBER: 
BITSTHING  (CAR(X)  )     =    ?0000?FFE; 

PROCEDURE    DUMP    SUM     (INTEGER    VALUE    N)  ; 
COMMENT    DU3?    NUMBER    TO    OUTBUF; 
BEGIN    LENGTH    :=    LENGTH    *■    1; 
IF     (LENGTH    +    03?)      >    72    THEN    DUMP; 
I?    N    >    9    THEN    DUMP    NUM(N    DI7    10); 
OUT3UF  (03P|  1)     :=    CODS  (  (N    REM    10) 
3UMP    05P; 
END    DOM?    NUM; 


:40)  ; 


I?    NUM    ATOM  (X)     THEN 

3ESIN    LENGTH    :=    0 


ELSE 


DUMP    NUM  (NUMBER  (M  (CDR  (X)  )))  ; 
(END    " 

'begin 

Gi 


GET    ?NA ME (X,3UFF, LENGTH) ; 

IF    IENGTH    >     (71-03?)     THEN       DUMP: 

FOR    I:=0    UNTIL    LSNGTH-1    DO 

BEGIN 

0UT3UF  (03P|  1)      :=    3UFF(I|1); 

3UMP    OBP; 

END;" 
END-; 
END  PRINT  ATOM; 


PROCEDURE    WRITE    S  (INTEGER    VA] 
COMMENT    «RI?E    S-EXPRESSK 


3UMP_OBP; 


rALUE    X)  ; 
".ON    AT    X    ONTO    OUTPUT    BUFFER; 
BEGIN 
IF    ATOM  (X)     THEN 

PRINT    ATOM(X) 
ELSE 

3EGIN 

OUTBUF  (OBP|  1)     :  =    "  ("; 

WRITE    5  (CAP  (X)  )  ; 

X    :=    CD8  (X)  ; 

WHILE    X    7=    NIL    DO 

IF    ATOM(X)     THEN 
3EGIN 

00TBUF(03P|  1) 
PRINT    ATOM(X) 
END       ~    #* 
ELSE 

3SGIN 

BUMP  OBP;   COMMENT  OUTPUT  A  BLANK; 
WRITS  S(CAfl(X));    X:=CDR(X) 
END;  "" 
OUT3U?  (03P|  1)  :=  ")";   BUM?  OBP; 
END; 
END  WRITE  S; 


=  ". " ;   3UMP  OS?; 
X:=NIL 


OBP  :=  0; 
OUTBUF  :=  " 
WRITE  3  (X)  ; 
DUMP;- 
END  OUTPUT; 


INTEGER    VALUE 

VECTOR) 

MAXPATHLENGTH 

:=    0; 

|R)     DO 

:r    3IDTH; 

0697  —  PROCEDURE    SKIP  (INTEGER    7AL0S    X)  ; 

0698  —  COMMENT    SKIP    X    NUMBER    OF    LINES; 

0698  —  FOR    I:»1    UNTIL    X    DO    HRITE  f"    ")  ; 

06  99    — 

06  99    —  COMMENT**  ******************  *  *  ****************  *««;>*  ********* 

06  99    --  *  * 

06  99    —  *  SECTION    X:       MONITOR  * 

06  99    --  *  * 

06  §9   -—  *********  *****************************************  *********. 

06  99  — 

0699  -- 

0699  —       FROCZDURE  MONITOR; 

0700  —  COMMENT  INVOKE  TRANSLATION  ROUTINES,  OUTPUT  TRANSLATION 
0700  —  IP  TRANS  IS  TRUE,  INVOKE  INTERPRETER  ROUTINES  AND 
0700  —               OUTPUT  RESULTS; 

0700  -- 

0700  2-  BEGIN 

0701  —  INTEGER  FN,  ARGS,  VAL; 

0702  —  INTEGER  MAXWIDTH,  MAXPATHLENGTH,  NODESUM; 

0703  —  REAL  SPESDUPRAT 10 ; 

0704  — 
070U  —  PROCEDURE  GETSTATS 

0705  3-  BEGIN 

0706  —  MAXWIDTH    :=    0; 

0708  —  NODESUM    :=    0: 

0709  —  WHILE  -.NUL(VECT! 
0709  4-  .  BEGIN  INTEG; 
0711    —  WIDTH    :  =    NUMBER (M (CDAR (VECTOR)  ))  ; 

07  12    —  NODESUM    :=    NODESUM    +    WIDTH; 
07  13    —  I?    WIDTH    >    MAXWIDTH    THEN 
0713    --  MAXWIDTH    :=    WIDTH; 
07  14    --                                                MAXPATHLENGTH    :=    M AX? ATHL EN GT H    +    1; 
0715    --                                                VECTOR    :=    CD?,  (VECTOR)  ; 
07  16    -1                                               END: 
07  17    —                                     SPZEDUPRATIO    :=    NODESUM    /    MAXPATHLENGTH; 

0718  -3  END    GETSTATS; 

0719  — 

0719  —  INTRA  US  :=  TRUE; 

0720  —  SCANNER; 

0721  —  FN  :=  TFUNC; 

0722  —  ARGS     :=    TARGS: 

0723  --  INTRANS    :=    FALSE; 

0724  —  IF    TRANS    THEN 

0724  3-  BEGIN 

0725  —  SKIP  (2)  ; 

0726  —  WRITE  [•'******    TRANSLATION    FOLLOWS    ******"); 

0727  —  SKIP  m  ; 

0728  —  OUTPUT  (FN)  ; 

0729  —  OUTPUT    ARGS)  ; 

0730  -3  END; 

0731  --  SKTP(2]  ; 

0732  --  WRITE  (»******    EVALUATION     3EGINS    ******"); 

0733  —  VAL    :=    E VALQUOTE  (FN ,    AKGS); 

0734  —  SKI?  (1)  : 

0735  —  WRITE  (''RESULT    IS:"); 


SKI?(1     ; 

WRITE  (''RESULT 
OUTPUT  (VAL)  ; 


07  36 

0737  —  SKIP (2)  , 

0738  —  GETSTATS  (CDR  (VAL)  )  ; 

0739  —  WRITE  ("PROCESSORS     REQUIRED    FOR    OPTIMUM    PARALLELING.", 

0739  —  MAXWIDTH)  ; 

0740  —  WRITE  ("EXECUTION    STEPS     (PARALLEL) " , 

0740  --  MAXPATHLENGTH)  ; 

0741  —  WRITE  ("EXECUTION    STEPS     (SEQUENTIAL) ", 

0741  —  NODESUM)  ; 

0742  —  WRITE  ("SPEED-UP    RATIO     (SEQUENTIAL/PARALLEL) ", 

0742  —  SPEEDUPRATIO) ; 

07  43  -2  END    MONITOR-, 

0744  -- 

0744  — 

0744  — 

0744  --  COM MENT** **********  ****************** *** 

0744  —  *  * 

0744  —  *  MAIN    PROGRAM  * 

0744  *  * 

Q744  -—  *********  ********  ************  ********** . 

0744    — 

0744    —  INITIALIZE;       MONITOR; 

0746    — 

0746    —  FINIS    : 

0746  --  WRITS  ("FREE    STORAGE    REMAINING  :", FREE    CELLS): 

0747  -- 

07  47    -1  END. 

EXECUTION    OPTIONS:     DEBUG, 1       TIMS=10    SECONDS    ?AGES=20    HABGIN=72 

008.33    SECONDS    IN    COMPILATION,     (40748,    07323)     3ITF.3    OF    CODE    GENERATED 
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